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1. 


Condensed SPS Object Deck for Phase 1. 


2. 


Sample Problem Input Data. 


3. 


Condensed SPS Object Deck for Phases 2-5. 


4. 


Phase 1 Source Program Deck 


5. 


Phase 2 Source Program Deck 


6. 


Phase 3 Source Program Deck 


7. 


Phase 4 Source Program Deck 


8. 


Phase 5 Source -Program Deck 



These Decks will be forwarded only when specifically- 
requested. 
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1620 PERT 
10.3 

Bernard J. Jeltema 

International Business Machines Corporation 
Detroit Education Center 

Bernard J. Jeltema 

IBM Detroit Education Center 

7700 Second Blvd. 

Detroit 2, Michigan 

TR 5-7900 

1620 PERT solves the basic critical path problem involving 
time. The program features random event numbering and 
allows for more than one event without a predecessor 
event as well as more than one event without a successor 
event. Options foreither one or three time estimates are 
available under program switch control. 

Ranking is accomplished by topoligical threading; the 
remaining computations are similar to other PERT programs. 

Activity times are given in XX. X weeks. Total project time 
cannot exceed 199.8 weeks. The 20K 1620 will handle 
695 activities; for larger memory, the maximum number of 
activities allowed is 999. Event numbers are 4 digits XXXX. 

4000 + 23N where N is the number of activities . 

The minimum 1620 configuration is a 20K card 1620 with 
Indirect Addressing. Automatic divide hardware is required 
when it is desired to compute the probability of meeting a 
scheduled completion date. 

1620 PERT is written in SPS using fixed point arithmetic. 
The program uses the TOPTHREAD routine for ranking the 
activities. This technique allows random event identification 
and multiple originating and terminating events. Throughout 
input, processing, and output, the activity records (1 
activity per card) remain in the same (collating) sequence. 
Statistical computations and conversion of times to dates 
are included. Suggestions are included in the write-up for 
modifying the input and / or output routines to handle 
different- formats . 



Comments: This program and its documentation were written 

by an IBM employee. It was developed for a 
specific purpose and submitted for general distribution 
to interested parties in the hope that it might prove 
helpful to other members of the data processing community. 
The program and its documentation are essentially in the 
author's original form. Questions concerning the use 
of the program should be directed to the author's attention. 
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I I. Description of 1620 PERT 

A. An Overall Look at the Program 

One of the most popular management tools available today is known 
to civilian groups as Critical Path Scheduling and to persons asso- 
ciated with military projects as PERT. The purpose of this manage- 
ment tool is to help plan, evaluate and control large scale projects 
with many interrelated activities. 

1620 PERT is designed primarily to solve the problem of Critical 
Path Scheduling in a way conforming to most of the basic input/out- 
put specifications of PERT programs currently in use in military pro- 
jects. The most important difference between PERT and Critical Path 
Scheduling (CPS) is that PERT requires three time estimates for each 
activity (job) instead of a single estimate. Therefore statistical 
computations measuring the uncertainty of estimates of future action 
are included in the PERT PROGRAM. The author is assuming the user 
has a familiarity with CPS and PERT. The terminology of PERT will 
be used in this discussion. There are many fine articles available 
to provide the user with a more thorough background to PERT including 
the IBM General Information Manual "PERT.... a Dynamic Project 
Planning and Control Method" , Form No. E20-8067. Under program 
switch control (Switch 1) the user can elect to use only one time 
estimate and forego the statistical computations. Section VI dis- 
cusses the requirements for modifying the input routine and/or the 
output routine for other input/output formats. 

To use 1620 PERT the project must be described by a network (arrow 
diagram, baloon chart). Events (nodes) are the milestones of the 
project and are usually represented by circles. Events may be ran- 
domly numbered. Activities (jobs) are actions which are carried on 
between events and are designated by arrows. Each activity is 
defined by its predecessor event (EP) and successor event (ES) . 
Associated with each activity are three time estimates; optimistic, 
most likely, and pessimistic. Consideration has not been given 
to extend 1620 PERT to include cost, man- scheduling, or other 
computations. 

Input to 1620 PERT requires one card to describe each activity. In 
addition, a header card and an END card are needed. Essential to 
the description of each activity is its predecessor event number 
(four digits) , successor event number (four digits) , three time 
estimates (xx.x weeks) and an optional 31 character alphabetic 
description of the activity. Optionally a scheduled completion 
date for any activity may be included. Activities may also be 
coded C for "complete" in which case they are not included in the 
computations, but are incorporated in the output listing. 




Description of 1620 PERT (Cont'd.) 

The output consists of one card for each activity. In addition to 
the duplication of the information which is contained in the input 
card, each activity card includes the expected time required to 
perform each activity (xx.x weeks), the slack (total float) time 
(xx.x weeks), the cumulative variance (xxx.x weeks) of the time 
estimates of all activities up to the completion of that activity 
along the longest path to that successor event, the probability 
(x.xx) of meeting the scheduled completion date if one is speci- 
fied, the expected completion date (month/day/year - xx/xx/xx) , 
and the latest allowable completion date (xx/xx/xx) which will 
still not delay the completion of the entire project. 

1620 PERT consists of five separate programs. The activity cards 
are sorted in ascending collating sequence by successor event 
within predecessor event (eight columns) . The activity cards are 
placed behind the first program (the Input Routine) and the other 
four programs are placed behind the activity cards. The Input 
Routine calls in the activity cards, edits them and stores the pertinent 
information in 23 digit records beginning at location 04000. When 
an END card is reached signifying that all activity cards have been 
read and stored, the next program (TOP THREAD) is read in over the 
Input Routine and ranks the activities. The Backward Pass program 
is read in over TOPTHREAD and determines the latest allowable 
completion dates for each activity. Next the Forward Pass program 
is called in and computes expected completion dates and variances. 
Finally the Output Routine is called in followed by the input activity 
cards which must be retrieved from their place behind the Input 
Routine. As the Output Routine reads each input activity card, the 
input data is merged with the computed data in storage to produce 
the output activity card for that activity. The activities remain in 
collating sequence throughout input, processing and output. 
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B. Phase I - Input Routine 

The function of the Input Routine is to edit the input data, compute the expect- 
ed time and variance for each activity, and set up a 23 digit record in core 
storage for each activity. 

Five different types of cards are recognized and handled by the Input Routine. 
These are distinguished by a status code in column 18 of each card. The 
codes are: 

H - Header card - must be the first data card of each network. 

Blank - A normal activity card. Columns 18-24 and 5G-80 will be blank. 

S - An activity card for which a scheduled completion date is speci- 
fied in columns 19-24. 

C - A completed activity whose date of completion can be specified 
in columns 19-24. 

E - An END card. This card with END punched in columns 18-20 is 
the last card in the network data deck. 

The input routine edits for the following erroneous conditions. 

1. NO HEADER CARD, START AGAIN 

The first (and only the first) data card must contain an "H" in 
column 18 . 

2. CARD OUT OF SEQUENCE 

The activity cards must be in ascending collating sequence, 
successor event within predecessor event tsort on columns 1 
through 8 in reverse order, i.e., 8, 7, 6, 5, 4, 3, 2, 1.) The 
number N before the message indicates the card in error is the 
Nth activity card. 

3. DUPLICATE ACTIVITY 

Two cards define the same activity. This condition is not per- 
missible. The number N before the message indicates the Nth 
card is in error. 

4. CHECK ESTIMATES 

This message indicates that the three time estimates (optimistic, 
most likely, pessimistic) do not progress from smaller to larger. 
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Phase I - Input Routine (Cont'd.) 

It is allowable to have all three the same. The first 17 numbers 
in the activity card precede the message for identification put- 
poses. Processing continues using the given time estimates. 

5 . EXTRA CARD (S) 

This message appears after the END card is read if the number of 
activity cards exceeds the number specified in columns 5-8 of 
the header card. 

All cards with status codes C, S, and "blank" will be included 
in the count of the number of data cards. 

6. CARD(S) MISSING 

This message occurs after the END card is read if the number of 
activity cards is less than the number of activities specified in 
the header card . 

7. ERROR, START NEXT NETWORK 

If program switch 4 is ON and if message 2, 3, 5 or 6 is typed 
out, message 7 will also appear. Processing is stopped. De- 
pressing START will read in activity cards for another network. 

8. NETWORK EXCEEDS MEMORY CAPACITY 

This message indicates that the number of activities in the project 
is more than 695 for 20K or more than 999 for 40K or 60K. 

(Additional restart information is contained in Section V C , "Programmed Stops 
and Restarts") . 

As each activity card is read and approved by the edit the expected time and 
variance are computed. The formulae, derived from the Beta distribution, are 

Expected time D = a + 4m + b 
6 



Variance = 




where a = optimistic time 
m= most likely time 
b = pessimistic time 



Note: These statistical computations are not made if only one time estimate is used. 
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B. Phase I - Input Routine (Cont'd.) 

After these values are calculated, a 23 digit record is constructed for each 
activity . 

These records appear in the same sequence in memory as the input activity 
cards. 

The first activity record is in memory locations 04000 to 04022, the next in 
04023 to 04045, and so on. With proper care these records as well as the 
rest of the program are relocatable by reassembling the SPS program. (See 
Section VI A) 

The form of each activity record upon completion of the Input Routine is 

Positions Format Symbol Description 

1-4 XXXX EP Predecessor event 

5-8 XXXX ES Successor event 

9-11 XXX Variance, XX. X weeks. 

(000 if only one time estimate 
is used.) 

12-14 XXX Expected time, XX. X Weeks 

15-17 000 AP Initially reserved for the number 

of the activity preceding this one 
in topological order.* 

18-20 000 AS Reserved for the number of the 

activity succeeding this one in 
topological order.* 

21-23 000 M Initially reserved for a count of 

the number of times the activity 
is "moved" during the ranking 
(TOP THREAD) phase of the program. 

NOTE: Activity records are set up in memory only for activities whose status 
is scheduled (S) or not scheduled (blank), not for completed (C) activities. 

* See Section II C for a brief explanation of topological ordering. 



Phase II - TOPTHREAD 



The purpose of this phase is to sequence the activities in the order which 
is necessary for the subsequent PERT computations, specifically for the 
Backward Pass and the Forward Pass to determine the earliest and latest 
completion dates. The method is described by Lasser in "Communications 
of the ACM", April, 1961, and by the author in the paper "TOPTHREAD" 
contained in the published papers of the First IBM' Systems Engineering 
Symposium (1961) . 

Briefly, the TOPTHREAD phase arranges the activities in topological order 
which is the order essential to further computation. For this purpose, 
topological order is defined by these two requirements. 

1. All activities beginning at the same event will be listed 
consecutively. 

2. Each activity will be listed before all the activities which 
follow it either directly or indirectly in the network. 

Instead of actually rearranging the activity records in memory two 
"threaded lists" are used. First the activities are numbered sequen- 
tially by the program from one to N, the number of activities. This 
number is conceptual only and does not appear in the activity record. 
The TOPTHREAD program then places two "tags" in each activity record. 
One tag (AS) is the number of the activity succeeding this one in topolo- 
gical order. The other tag (AP) is the number of the activity preceding 
this one in topological order. Thus beginning with an activity in the 
network it is possible to thread through all the remaining activities to 
the last activity by 'chaining" from activity to activity by using the AS 
tag. Similarly one can thread backwards from any activity to the first 
activity using the AP tag. Both the Backward Pass and the Forward 
Pass make use of the threaded lists. 

This method of ranking allows the events to be numbered at random 
(theoretically the events could be alphanumerically identified) . The 
method also allows more than one event without a predecessor event 
as well as more than one event without a successor event. These 
facts may facilitate 1) partitioning of large networks into smaller 
ones, 2) grouping of sub-networks into larger ones and 3) the pro- 
cessing of multi-project networks. The technique can actually handle 
several independent networks simultaneously. 

Upon completion of TOPTHREAD the 23 digit activity records contain 
new data in the AP, AS, and M fields. AP (positions 15-17 ) contains 
the number of the preceding activity in topological order. AP of the 



Phase II - TOPTHREAD (Cont'd.) 



first activity is zero. AS (positions 18-20) contains the number of 
the succeeding activity in topological order. AS of the last activity 
is N + l. M (positions 21-23) is a count of the number of times an 
activity is "moved" in setting up the topological order. 

If an activity is moved more than N times (N is the number of activi- 
ties in the network) during the TOPTHREAD phase it is in a "closed 
loop", that is, the activity is its own direct or indirect successor. 
This may result from 1) improperly punched data, 2) an improperly 
defined network, or 3) more than one event defined by the same 
number. If this situation arises, the message IN CLOSED LOOP 
will be printed preceded by the EP and ESof the activity in the 
closed loop. Processing stops with a complete restart required 
when the situation has been corrected « 
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D. Phase III - The Backward Pass 

The purpose of the Backward Pass is to determine the latest allowable 
finish time (AFT) . It does this by starting with the last activity and 
working its way back along each path until it reaches the first activity. 

Before proceeding with the Backward Pass, the program determines the 
total number of weeks allowed for the entire network by converting the 
start and finish dates supplied on the header card to weeks and taking 
the difference. The message PROJECT EXCEEDS 199.8 WEEKS indicates 
the project is too long and must be reduced to 199.8 weeks or less. 
The latest allowable finish time of the last activity and the AFT's of 
all preceding activities are determined starting with 99.9 weeks as 
the AFT of the last activity and all activities without successor activities. 

Starting with this last activity the program threads its way backward through 
the activities in topological order. As it encounters each activity for the first 
time, it starts at that activity and threads its way forward through the activity 
list topoligically until it finds a group of one or more activities all beginning 
at the successor event of the activity which it has encountered for the first 
time. (In the Fortran program the index K refers to the activity being en- 
countered the first time in the backward thread. The index I refers to the 
activities which are checked each time the list is scanned with a forward 
thread. Thus we seek the group of consecutive activities whose EPj = ES^.) 
If no such group is found, i.e. , the activity has no successor, the activity 
is assigned the same AFT as the la st activity in the project. If such a group 
of activities is found (as is normally the case) the activity (K) is assigned 
an AFT which is the minimum time TMIN of the differences of each AFT in the 
group and its corresponding expected time D (duration time). 

AFT k = Min (ATTj - D.) 
all i 

where i is defined by 

EP. = ES k for each activity k 

Upon completion of the Backward Pass the last three digits of each activity 
record (previously occupied by the move count M) now contain the AFT's 
of each activity in weeks (XX. X) relative to 99.9 weeks. 

After completing the Backward Pass the total number of events without 
direct successor events is indicated by the message XXX TERMINAL 
EVENTS. 
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E. Phase IV - The Forward Pass 

The purpose of the Forward Pass is to determine the earliest start 
time EST of each activity. From this the output routine will add the 
expected time D to the EST to establish the earliest finish time; 
i.e., the expected completion date. In addition, the Forward Pass 
determines the sum of the variances of all the activities along the 
longest path through and including each activity. The message 
CUMULATIVE VARIANCE EXCEEDS 999.9 WEEKS will type out if the 
variance along any path exceeds 999. 9 weeks. 

After finding the first group of activities with the same predecessor 
event in the list in the topological ordering and assigning them an 
EST of -99.9, the Forward Pass threads through the topological list 
in a forward direction (on index K) . As each activity group is en- 
countered for the first time, the program again returns to the first 
activity topologically and searches through the topological list 
of every activity (using index I) from the first to the group being 
encountered for the first time seeking all activities whose successor 
events ES^ are equal to the predecessor event EP k of the group. 
The maximum value of the individual sums of the EST plus the D of 
each activity satisfying this conditio n is assigned as the EST of each 
activity in the group. 

Thus 

EST k = Max (ESTj + Dj) 
where i is defined to satisfy the relation 

EP k = ES i 
for any activity k. 

Upon completion of the Forward Pass, the record for each activity has 
two new entries. The value of EST in weeks (XX. X) relative to the 
start of the project at time -99.9 weeks is in positions 15-17, replac- 
ing the backward threaded list AS. The value of the cumulative var- 
iance along the longest path to the end of that activity is in positions 
1-4 expressed in weeks XXX. X. The variance replaces the predecessor 
event number EP. 

The total number of events without predecessor events is indicated by 
the message XXX ORIGINATING EVENTS. 
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F. Phase V - The Output Routine 

The purpose of the output routine is to punch or type the output in a 
form which includes for each activity the values of the 

1) Input data 

2) Expected time in weeks (XX. X) 

3) Slack time in weeks (XX. X) 

4) Cumulative variance in weeks (XXX. X) 

5) Expected completion date (Mo/day/yr) i.e. , th^_e^rliest 
finish time 

6) Latest allowable completion date (mo/day/hr) , i.e., 
latest finish time. 

7) Probability (X.XX) of meeting the scheduled completion date 
if one is specified. 

In the case of completed activities (status C) only the input information 
is included in the output. 

Program switches 1 and 2 affect the output routine. Switch 1 OFF is 
normal when three time estimates are used. With Switch 1 ON only 
one time estimate is used and hence the probability calculation is 
ignored. With Switch 2 OFF the 80 character output record will ds 
p ir.ched; with Switch 2 ON the output record will be typed. 

The initialization portion of the output routine checks for the header 
card and punches it if Switch 2 is OFF. If a typed report is desired, 
the headings are printed. The base addresses of the fields in the 
activity records are set up for sequential output of the activity 
information. 

Expected completion date for each activity is determined by adding 
the earliest start time EST to the expected duration time D (plus 99.9) 
to compute the earliest finish time EXPTIM. This value, relative to 
a "time now" of zero, is made relative to the project start date and 
then converted to a date by the MODAYR subroutine. 



Phase V - The Output Routine (Cont'd.) 



The slack time SLACK is derived by subtracting the EXPTIM from the 
latest finish time AFT. The slack time may be negative since the 
AFT is determined from the project finish date. A negative slack 
time implies that that activity is behind schedule if we expect to 
meet the project finish date. Similarly all slacks may be greater 
than zero. This implies the entire project is ahead of schedule. 
All activities which have the minimum value of all the slacks for 
that network are on the critical path. 

The cumulative variance is the sum of all variances along the long- 
est path up to and including that activity. The significance of the 
cumulative variance is, first, a measure of the uncertainty of com- 
pleting the activity on the expected completion date. The larger 
the valve of the variance, the less certain one is of meeting the 
expected completion date. Second, the cumulative variance is 
needed because the completion of the activity is dependent on 
previous activities. 

The probability of meeting the scheduled completion date is calcu- 
lated by PSCHED only when an activity with status S having three 
time estimates is encountered. The formula used is the familiar 
one: 

Probability = £ ( Ts - Te ) = $ (Z) 

where o~ = Accumulative Variance 

The square root of the variance is taken by PSQRT. PSIG computes 
the standardized variable Z. The routine beginning at label P 12 
determines the probability using a Hastings approximation. 



Miscellaneous Subroutines 

Incorporated into the preceding programs which make up 1620 PERT 
are a number of routines which are either written in subroutine form 
suitable for use with a BT of BTM linkage or are written in a form 
separate from the rest of the program which might be adapted to 
subroutine form. 

Except for the MO/DAAR TO DAYS sequence which may be found 
immediately following the TOpTHREAD routine, all the subroutines 
are in the Output Routine. 

Specifically, these include: 

1 . MO/DA/YR TO DAYS 

Conversion of a calendar date from Month/day/year to the 
number of days from the base date January 1, 1960 to that 
date based on a 7 day week. The entry is at MBEGIN 
p. 20, 1.030. 

2 . DAYS TO MO/DA/YR 

Conversion of a number of days with base date January 1, 
1960 to the corresponding calendar date based on a seven 
day week. Entry instruction is BT MODAYR, DAYSFIELD. 
Routine starts at MODAYR p . 47 , 1.020. 

3. Numeric to alpha conversion 

Changes numeric field to double digit form suitable for 
alphabetic output. Entry instruction is BT NT OA, NFIELD. 
Routine starts on p. 40 , 1 . 010 . 

4. Alpha to numeric conversion 

Changes a numeric field in double digit alphabetic form to 
single digit numeric form suitable for arithmetic use. Entry 
instruction is BT ATON, AFIELD. Routine begins on p. 40, 
1.250. 

5 . Fixed point square root 

Routine begins at PSQRT with argument at XO in the form 
XX.XXXX. Square root is placed in XO in same form. 

6. Fixed point probability calculation using normal curve 
This routine begins on p. 45, 1.070 with the argument in Z 
in the form X.XXXX. Probability at exit (p. 45, 1.374) is 
placed in Z in same form X.XXXX. 
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III Input/Output 

A. Input Formats 

The input includes a header card (status H) , one activity card (status 
C, S, or "blank") for each activity, and an END (status E) card in that 
order. The formats are: 

1. Header Card - Status H 

Cols . D escription 



1 - 


4 


Network number - 4 digits XXXX 


5 - 


8 


Number of activities - 4 digits XXXX or blank 


9 - 


11 


Case number of network to identify the run. 


18 




H - Status Code 


19 - 


24 


Date of computer run XX/XX/XX 


25 - 


55 


Network Title 


69 - 


74 


Network start date - "Time now" XX/XX/XX 


75 - 


80 


Network finish date - XX/XX/XX 



If the number of activities are specified, it must be the total count of 
all status C, S, and "Blank" cards. Any discrepancy with this count 
is detected by the Input Routine and processing is stopped. If an 
activity count check by the Input Routine is not desired, this field 
may be left blank or filled with zeros. 

2. Activity Cards - status "blank" 



Cols. Des cription 

1-4 Predecessor event number XXXX 

5-8 Successor event number X>OCX 

9-11 Optimistic time estimate XX. X Weeks 
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A. Input Formats (Cont'd.) 



C ols. Des cription 

12-14 Most likely time estimate XX. X Weeks 

15-17 Pessimistic time estimate XX. X Weeks 

18 "Blank" 

19 - 24 Blank 

25 - 55 Activity Description 

55 - 80 Anything - This area ignored by the program. 



3. Scheduled activity cards - Status S 

These are the same as status "blank" activity cards except 
that Column 18 contains an S and the scheduled date for 
completing the activity is punched in Golumns 19 - 24 in the 
form mo/day /yr XX/XX/XX. 

4. Completed activity cards - Status C 

These are the same as status "blank" activity cards except 
that column 18 contains a C and the date the activity was 
completed is punched in columns 19 - 24 m the form 
mo/day/yr XX/XX/XX. Completed activity cards are included 
only so that they may be readily incorporated in the output 
listing. 

5 . END CARD 

This must be the last card of the data and must have an E in 
Column 18. It is recommended that the word END be punched 
in columns 13 - 20 although an E in column 18 is sufficient. 
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III Input/Output 

B. Output Formats 

1 . Card output - Program Switch 2 OFF . 

The header card is duplicated and becomes the first output 
card . There is one output activity card punched for each 
input activity card. 

Activities will be in the same order for both input and output, 
namely ascending numeric sequence sorting on columns 1 to 8. 
Columns 1 through 55 of the output activity cards contain the in- 
formation duplicated from columns 1 - 55 of the input activity 
cards. The remaining columns in the output cards include: 

Cols . Description 

56 - 58 Expected time in XX. X weeks. This is the weighted 

average -of the three time estimates. 

59 - 61 Slack time in XX. X weeks 

62 - 65 Cumulative variance along the longest path to the 

completion of that activity in XX. X weeks. 

66 - 68 Probability X.XX of meeting the scheduled completion 

date for scheduled activities only (status S) . Blank 
for all others . 

69 - 74 Expected completion date mo/day/yr XX/XX/XX. 

75 - 80 Latest allowable completion date mo/da/yr XX/XX/XX. 

The END card is not included in the output. 

2 . Typed Output - Program Switch 2 ON 

The progress of computation is monitored by the typewriter. Header 
card data is printed to indicate the start of computation. Any error 
messages are printed following this and are explained elsewhere in 
this write-up. Following this the operator has the option to punch 
or type the output data (controlled by Switch 2) . With Switch 2 ON 
two lines of heading will be printed followed by the 80 character 
activity records which have the identical form as the card output formats , 

If the slack is negative the units position of the slack field will be 
an alphabetic character since output is typed in the alphabetic 
mode. Upon satisfactory completion of the program, the message 
THE END will type. 



Input/Output 

C . I/O Formats for a Single Time Estimate 

The user has the option to use only one time estimate instead of 
three. Naturally all statistical calculations are bypassed then 
by the program. If Program Switch 1 is ON 1620 PERT uses only 
one time estimate; with Switch 1 OFF, 1620 PERT uses three esti- 
mates. 

1 . Input formats for one time estimate 

The input is the same as for three time estimates except : 

The single time estimate is .punched in columns 12-14 
(where the Most Likely estimate is usually punched. 
The other time estimate fields (Columns 9-11 and 
15 - 17) are ignored by the program and may contain 
anything. 

2. Output formats for one time estimate: 

The output is identical to that when three estimates are used 
except: 

a. The single time estimate is punched in cols. 56-58 
(which contained the Expected Time otherwise ) . 

b. For scheduled activities (Status S) the probability is 
always left blank since it is not computed. 
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Operating Instructions 

A. Console Switch Settings 

Set PARITY and I/O switches to STOP 

Set OFLOW to PROGRAM 





OFF 


ON 


PS1 


Three time estimates used 


Only one time estimate used 


PS 2 


Output on Punched cards 


Output on typewriter 


PS 3 


Not used 


Not used 


PS4 


Stops on input error 


Edits all input data 




Proceeds if no errors 


Proceeds with computations if no 
errors occur. 



No tabs required. 



B. Operating Procedure 

1 . Clear Memory 

2. Set console switches. 

3. Ready typewriter for 80 character line, 

4. Ready card punch with blank cards if punched output is desired. 

5. Place program and data cards in read hopper in the following order: 

a. Input Routine program deck 

b. Data deck in this order: 

1) Header card - "H" in column 18 

2) All activity cards sorted in ascending sequence on columns 1 
through 8, succeeding event ES within preceding event EP. 

3) END Card - "E" in column 18 

/~o. The remaining program decks in this order. \ ^ 

1) TOPTHREAD > 

2) Backward Pass N 

3) Forward Pass 

4) Output Routine, 

6. Depress RESET on the console; then press the LOAD key on the Card Reader. 



Anytime after all the data cards have been read remove them from their 
place behind the Input Routine and put them in the read hopper behind 
the last card in the Output Routine program deck. 

Press READER START on the Card Read Punch to process remaining 
data cards. THE END should print on the typewriter to signify com- 
pletion of the processing. 
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Operating Instructions 

C. Programmed Stops and Restarts. 

In general all programmed stops should be referred to the PERT 
analyst for appropriate action as described in Section II. 

With Switch 4 on the input data will be edited. If the data is all 
satisfactory processing will continue with no messages printed out. 
If the input data is not satisfactory, appropriate error messages will 
be printed out and editing will continue until all the data cards have 
been read at which time the message ERROR, START NEXT NETWORK 
will appear calling for the next network. 

With Switch 4 OFF the program halts as soon as the error is detected. 
If the situation can be corrected without affecting any data cards 
prior to the one in which the error was discovered (the second from 
last in the normal read stacker) the remaining data cards beginning 
with the one in error may be placed back in the read hopper after 
x making the necessary correction. Follow Restart Procedure 3. 

Four restart procedures are possible. 

1. Complete restart at beginning after making corrections. 

2. Restart by reloading complete data deck . 

a. Run the remaining cards out of the read hopper, 
with the Non-Process Runout key. 

b. Clear the punch feed of cards. 

c. Place the complete data deck (either the present network 
with corrections or an entirely new network) in the read 
hopper followed as usual by the rest of the 1620 PERT 
program deck (if any program cards remain in the read hopper). 

d. Press READER START and console START to continue pro- 
cessing. 

3. Restart by loading remaining data deck after corrections are 
made. 

a. Run the remaining cards out of the read hopper. 

b. The second from last card in thje normal read stacker is 
the card which caused the error. Starting with this card 
be sure there are no duplicate activities defined and all 
activity cards must be in sequence. 
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IV. 



C. Programmed Stops and Restarts (Cont'd.) 

c. Place these cards back in the reader hopper then press READER 
START AND console START 

4. No restart, processing continues . 

Some messages are for monitoring the progress of the program or indicate 
possible error conditions. Processing continues automatically after the 
message types out. 

Here is a list of programmed messages, the phase in which they can occur, the 
appropriate restart procedure to be used (describer above) and the Section 
elsewhere in the write-up where' they are more fully described. 



PHASE MESSAGE 



RESTART REFERENCE SECTION 



1 NO HEADER CARD, START AGAIN 2 

1 CARD OUT OF SEQUENCE (SWITCH 4 OFF) 3 

1 CARD OUT OF SEQUENCE (SWITCH 4 ON) 2 

1 DUPLICATE ACTIVITY (SWITCH 4 OFF) 3 

1 DUPLICATE ACTIVITY (SWITCH 4 ON) 2 

1 CHECK ESTIMATES 4 

1 EXTRA CARD (S) 2 

1 CARD(S) MISSING 2 

1 ERROR, START NEXT NETWORK 2 

1 NETWORK EXCEEDS MEMORY CAPACITY 1 

2 IN CLOSED LOOP 1 

3 XXX TERMINAL EVENTS 4 

3 PROJECT EXCEEDS 199.8 WEEKS 1 

4 XXX ORIGINATING EVENTS 4 

4 CUMULATIVE VARIANCE EXCEEDS 999.9 WEEKS 1 

5 CD SEQ ERR 2 
5 THE END 4 



or 1 



or 1 



II B 
II B 

II B 

II B 
II B 
II B 
II B 
II B 
II C 
II D 
II D 
II E 
II E 



Operating Instructions 

D. Off-Line Processing Procedures 

The basic procedure for processing cards is: 

1. Sort the input activity cards numerically in ascending order on 
the first 8 card columns. A digit sort beginning in columns 

8, 7, 6, 5, 4, 3, 2, lis required. The header card should 
be placed at the beginning of the deck and the END card at 
the end of the deck after the sort. 

2. Process the input activity cards through the 1620 by the pro- 
cedure described above, in IV. A and IV. B. 

3. Using a sorter and a printer (a 407 printer control panel wiring 
diagram is described in Section VIII ) a variety of reports can 
be made from the output activity cards by sorting in different 
orders . The most important is usually the listing of the 
activities from the most critical activity to the least critical 
activity. Another useful report lists the output activity 
cards in order of Latest Allowable Completion Date. Still 
other reports may prove useful to the user. In each case 

the header card should be removed before the output deck 
is sorted. After sorting, replace the header card at the 
beginning of the deck. If additional heading information is 
desired, an unlimited number of heading cards may be placed 
in front of the header card. The format for these heading 
cards is 

col. 18 - the letter "H" 

cols. 25 - 55 - the heading information 

all other columns must be blank. 

The sorting procedures for the two reports mentioned are as 
follows : 

a. Activity Listing by Latest Allowable Completion Date. 

1) Select all the Completed Activity cards from the 
deck by sorting out those cards with a "C" in 
column 18. You may wish to eliminate these 
activities from the listing or place them behind 
the sorted deck so they appear at the bottom of 
the listing. 
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V. Sample 



IV. 

D. Off-line Processing Procedures (Cont'd.) 



2) The Latest Allowable Completion Date is in mo/day/yr 
order in columns 75 - 80. Sort this date in ascending 
numeric order with day as the minor field (cols 77 - 78), 
month as the intermediate field (cols 75 - 76) and year 
as the major field (cols. 79 - 80 ). In other words, a 
digit sort in column sequence 78-77-76-75-80-79 is 
required . 

b. Activity Listing by Most Critical Activity to Least Critical 
Activity will be listed in critical path. 

This Listing is made by sorting from least slack time to 
most slack time. The 3 digit slack field is located in 
card columns 59-61. Remember that in 1620 PERT slack 
may be negative. This is indicated by an x-punch in 
column 61 . 

It is recommended that the sort on slack time be made after 
the sort or Latest Allowable Completion Date . If this is 
done activities will be listed in path sequence on the 
Critlcality Report. 

1) Separate the activity cards with an x-punch in column 
.: 61 from those with no x-punch in 61 . The cards with 

an x-punch have negative slack. 

2) Sort the cards with x-punch in 61 in reverse (descending) 
numeric sequence on the field in cols. 59 - 61. 

3) Sort the remaining cards in normal (ascending) numeric 
sequence, on the field in columns 59-61 and place 
this sorted deck behind the sorted negative slack 
cards. 

4) List the entire deck on the printer after placing the 
desired heading cards at the front of the deck. 
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Problem 
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The card deck which you have received from the Program Library includes : 

1. Deck 1 - Phase 1 - (Condensed SPS Object Program) 

2. Sample Problem Input Date 

3. DECK II - Phases 2, 3, 4, 5 (condensed SPS object programs) 

4. Source Programs - Phases 1-5 

A PERT Network - The Complete Project 

Figure V. 1 is an example of a small PERT network patterned after a similar 
network described in "Critical-Path Planning and Scheduling" by J. E. Kelly, 
Jr., and M R. Walker, Mauchly Associates , Inc. Note that events have 
been numbered randomly without regard for missing numbers. Associated 
with each activity is three time estimates — optimistic, most likely, and 
pessimistic, in that order — which are expressed in weeks. Figure V.2 
is a 1620 PERT data sheet as it might be filled in by the PERT analyst. 
In Figure V.3 is a 407 listing of the input data in proper (ascending) 
sequence. Figure V.4 is the output as it would be typed on the type- 
writer. Figure V.5 shows the same output arranged in order from most 
critical activity to least critical activity (output cards sorted on SLACK 
cols. 59-61). The first three lines of the output listing are created by 
three cards which have the corresponding information punched in columns 
25-55 and on H in column 18. These three cards (or any other appropriate 
ones) may be inserted ahead of the output data deck to improve the re- 
port. 

In output is on punched cards other sequences may be chosen by sorting 
on the appropriate columns. Figure V.6 is a listing of the same out- 
put data listed by latest allowable completion time. 

The Project Partially Completed 

In figure V.7 we see the PERT network as it may appear shortly after 
the project has begun. Activities 5, 13, and 17 are now complete 
and activity 16 has new time estimates because it is partially complete. 
Figure V. 8 is a listing in criticality order. The cards for the completed 
activities have been included in the listing. 

A Partitioned Network 

In some instances it may become necessary to process a network 
which is really a part of a larger network. An example of such a 
partitioned network is illustrated in Figure V.9. It is a reduced form 
of the network of Figure V.I with Activities 1, 2, 3, 10, 11, 12, 14, 
and 15 omitted. Figure V.10 shows the output of 162 PERT using 
the same data cards as in the previous network except for the omission 
of those we have mentioned. 
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VI Maintenance 

A. Comments on Making Changes to 1620 PERT 

The objective in programming 1620 PERT was to provide the user 
with a program which would handle randomly numbered events and 
would provide a variety of PERT management reports comparable 
to those currently in use in most government projects. For this 
reason 1620 PERT was written for the card 1620 using the TOP- 
THREAD technique for ranking with sole concern for handling the 
time factor only, not cost, manpower scheduling, reliability 
indexes or other resource factors. 

Both new and old uses of the PERT method may demand modifica- 
tions to be made to 1620 PERT. Some changes may be readily 
incorporated; others will require a major program revision. The 
following remarks are given to provide the user who desires to 
modify the, program some insight into the scope of effort required 
for certain changes and into the considerations inherent in these 
changes. Note that these remarks are not necessarily complete . 

Most changes will probably occur in input/output requirements. 
These will involve only the Input Routine and the Output Routine 
and are described in this and the other two parts of this section. 

Most other changes, that is, those affecting Phases II, III, and 
IV (TOPTHREAD, the Backward Pass, and the Forward Pass) will 
require a major change in the program. Specifically any change 
involving the lengthening of a field (e.g. event numbers greater 
than 4 digits, time estimates greater than 3 digits, total project 
time greater than 199.9 weeks, or more than 999 activities) will 
cause a major change in these three phases and will not be 
discussed here. 

Each of the five phases is a completely separate program and can 
be assembled separately in SPS. The provisions for making a 
change in one phase without affecting the others are: 

1. The activity records as they appear at the completion of 
the previous Phase must remain in memory (location 
04000 ff .) since the Phase being changed depends on the 
output format of the previous Phase which is given in 
Section II. 
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Comments on Making Changes to 1620 PERT (Cont'd.) 

2. Similarly the succeeding Phase requires the output of 
the Phase being changed (the updated activity records) 
to be in the same format as specified in Section II. 

3. The same remarks that apply to the activity records also 
apply to the data area which occupies locations 03943 
to 03998 in all five Phases. That is, the fields in this 
area are common to all phases and must be included in 
each phase . 

4. Be careful not to use the symbols referring to the activity 
records and data area in the Phase being changed for 
other uses . 

5. No one Phase may exceed position 03999 exclusive of 
activity records. If a modification of any Phase requires 
that Phase to occupy more than 4000 positions, all the 
Phases should be reassembled separately after the 
following changes are made to the SPS source program: 

1) The operand of the last DORG card in each 
Phase should be changed from 4000 to the 
address of the beginning of the first activ- 
ity record after the change. For example, 
if a change in Phase V (the Output Routine) 
requires Phase V to occupy positions 
00000 through 04499, then the card with 
page and line number 99029 in each Phase 
should have the operand changed from 4000 
4500. Similarly, the DORG card 98100 in 
each Phase should have its operand incre- 
mented from 3948 by the same amount. In 
our example, where the program was expand- 
ed by 500 positions, this change would be 
from 3948 to 4448. 

6. After reassembling and condensing, be sure columns 
1 and 2 of the last card in each Phase contain "41" 
not "48". Otherwise a programmed halt will occur 
at the end of each Phase. 

To modify 1620 PERT for 40K and 60K machines, change the operand 
in card number 91140 in Phase I (the Input Routine) from 20000 to 
26077. Although the capacity of the machine is larger, the nature of the 
program prohibits a larger number from being used. This allows for a 
maximum of 999 activities. (This change can be made to the Phase I 
condensed SPS deck by changing columns 33-3 7 in card 00022 from 
19988 to 26054 . 



B. Incorporating Changes into the Input Routine 

Changes should be made in accordance with the requirements listed 
above in Section VI A. Be sure the activity records are set up by the 
Input Routine in the form described in Section II B. 

If a change is made in the format of the input activity cards, remem- 
ber that the Ouput Routine is based on the same format since the 
activity cards are passed through the 1620 a second time to obtain 
descriptive information from them. Actually the event numbers 
(cols. 1-8), the status code (col. 18), the scheduled or completion 
date (cols. 19-24) and the activity description (col. 25-55) are the 
only card fields which the Output Routine requires. Other columns 
may be used as desired without affecting anything but the Input 
Routine. 

Columns 56 through 80 of the input activity cards are not used by 
the Input Routine and may be used for other identification purposes. 

If a major revision in card input format is required carefully consider 
writing a program to convert to the format required by 1620 PERT 
rather than modifying both the Input Routine and Output Routine. 
This would likely be the simplest way of obtaining compatibility 
with the two-card format frequently used by programs written for 
larger computers . ■ 



Incorporating Changes in the Output Routine 

Many of the remarks in Sections VI A and VI B also apply here 
and should be reviewed before modifying the Output Routine. 
1620 PERT emphasises completion dates. Normal output includes 
the Earliest Expected Completion Date (Earliest Finish Time EFT 
when refering to Critical Path Scheduling or LESS programs) and 
the Latest Allowable Completion Date (Latest Finish Time LFT in 
LESS programs). LESS programs also include the Earliest Start 
Time EST and the Latest Start Time LST. Both of these times can 
be calculated in the Output Routine. The EST is immediately 
available in positions 15 - 17 of each activity record. The LST 
can be calculated by subtracting the Expected Time (average of 
the three time estimates) from the Latest Allowable Completion 
time. This calculation may be made by incorporating the proper 
instructions in the SPS source program after the instruction at 
PCALC 4 36. Conversion of both the EST and LST to a date in 
1620 double digit form suitable for output should be made after 
the instruction at PNOTSC + 60 following the 3-instruction 
method used for the Expected Completion Date (EXPTIM) and the 
Latest Allowable Completion Date (AFTADD) in the first six 
instructions of PNOTSC. The Output Routine works on only one 
activity record at a time. When the completed record for an 
activity is punched it begins processing the next activity. The 
addresses of the fields in question for an activity at any given 
time are located at the following symbolic locations: 

ESTADD address of EST 

DADD address of the expected time 

(duration time D) 
AFTADD address of Latest Allowable 

Completion time (AFT or LFT) 
EXPTIM Expected Completion Time 

MODAYR entry to the MODAYR subroutine 

to convert to a date 

NTOA entry to a Numeric to Alpha 

subroutine. 

PRINT + 2 Corresponds to the first column 

of the output activity card. 



c 



31 



c 



VIII A 40 7 Panel for Listing 1620 Input and Output Data. 

The 407 PERT BOARD assumes that all non-activity cards (i.e. Header 
Cards) have an "H" in Card Col. 18. 

If there are no header cards it will be necessary to place a blank card 
with an "H " in cc. 18 ahead of the other cards. 

Alter SW #1 Off: Gives the Pre List 

On: Gives the Post List 

Alter SW #2 Off: Single Space 

On: Double Space 

A Carriage tape must contain a one punch for the first printing line and 
a twelve punch for overflow. 
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Figure V. 1 A Small PERT Network - Complete Project 
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NETWORK NO. 
NETWORK TITLE 



17. 7.7.71 NO. OF ACTIVITIES 
IliEiSTi iN.EiT,WQRiK, . . \ ■ 



CASE NO. iQ i Ql ll 
9 11 

\ ■ » ' i > _ i i i _ i _ 1 



PAGE 1 OF 



ANALYST 



RUN DATE (M-D-Y) 2 h 1.2,0,1.6,11 START DATE (M-D-Y)^i°lil^ 55 



FINISH DATE (M-D-Y) t0i4i 0. 1i6i3J 
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FIGURE V. 9 A PARTITIONED NETWORK 
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LOAD SOURCE DECK 

THEN PUSH START 

C BEGIN INPUT CONVERSION 

DIMENSION NEP(25),NES(25),NAP(25),NAS(25),M(25) 

DIMENSION D(25),VAR(25),EST(25),AFT(25) 

DIMENSION CUM(12) 

CUM(1)=31. 

CUM(2)=59. 

CUM(3)=90. 

CUM(4)=120. 

CUM(5)=151 . 

CUM(6)=181. 

CUM(7)=212. 

CUM(8)=2^3. 

CUM(9)=273. 

CUM(VO)«30*i. ' 

CUM(11)=33 i f. 

CUM(12)=365. 

200 READ 1 , N, STAMO, STADA,STAYR, SCHMO, SCHDA, SCHYR 
DO 210 1=1, N 

NAP ( I )=0 
NAS( l)=0 
M(l )=0 

READ 2,NEP(I),NES(I),A,AB,B 
IF (AB-A) 205,201 ,201 

201 IF(B-AB)205, 202,202 

205 PRINT.NEP(I),NES(I),A,A8,B 

202 D( I ) = (A+*t.*AB+B)/6. 
VAR(l)=((B-A)/6.)**2 
IF(SENSE SWITCH 1)209.210 

209 PRINT, NEP( I ),NES( I ) ,D( I ) ,VAR(1 ) 

210 CONTINUE 

C BEG I N TOPTHREAD 

JSW1=1 
LAST=N+1 

20 DO 21 1=1 ,N 
IF(M(I))21,25,25 

21 CONTINUE 

22 GO TO 100 
25 NFRST=I 
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JSW2=1 

30 K=l 

M(K)=M(K) + 1 ™™,^ T IT ™ 

IF(M(K) -N)32,32,31 FORTRAN LISTING 

31 PRINT, N, K, NEP(K) ,NES(K) PAGE 1 
STOP CLOSED LOOP ERROR 

32 IF<K-N)3^,50,50 

3k IF(NEP(K+1)-NEP(K))35,^0,50 
35 PRINT, K,NEP(K),NES(K) 

STOP OUT OF SEQUENCE 
kO 1=1+1 

GO TO (1H,30),JSW1 
itl !F(NAP(l))l+2, 43,^2 
k2 NASI=NAS(I) 

NAP l=NAP( I ) 

NAP(NASI)=NAP(I) 

NAS(NAP1)=NAS( I) 
kl NAP(I)=K 

NAS(K)=I 

r,n to 30 



a 50 GO T0(52,51 ),JSW2 
51 L=NAS(L) X 1 

GO TO 53 

52 JSW2=2 

53 JSW1=1 

DO 55 1=1 
IF(M(l))55,5 2 +,5 i + 
5k IF(NEP(I)-NES(L))55,57,55 

55 CONTINUE 

56 GO TO 60 

57 IF(NEP( l)-NEP(K))if1 ,58,41 

58 JSW1=2 
GO TO 30 

60 NASL=NAS(L) 
1F(K-L)62,61,62 

62 L=NASL 
GO TO 53 

61 NAP(NFRST)=0 
NAS(L)=LAST 
IF(LAST-(N+1))64,63,63 

6k NAP (LAST) =L 

63 LAST=NFRST 
DO 69 1=1 ,N 
IF(M(I))69.65.65 

65 IF(NAS(I))66,69,66 

66 M(l)=-M(l) 
69 CONTINUE 

GO TO 20 

100 DO 101 1=1 ,N 

101 PUNCH, NEP( I ) ,NES( I ) ,NAP(I ),NAS( I ) ,D( I ) ,VAR{ 1 ) 

GO TO 200 
END 

END OF COMPILATION 
LOAD SUBROUTINE DECK 
THEN PUSH START 



FORTRAN LISTING 




LOAD SOURCE DECK 
THEN PUSH START 

DIMENSION NEP(22),NE5(22),NAP(22),NAS(22) 

DIMENSION D(22),VAR(22),EST(22),AFT(22) 

DIMENSION CUM(12) 

CUM(1 )=31 . 

CUM(2)=59. 

CUM(3)=90. 

CUM(4)=120. 

CUM(5)=151. 

CUM(6)=181. 

CUM(7)=212. 

CUM(8)=243. 

CUM(9)=273. 

CUM(10)=304. 

CUM(11)=334. 

CUM(12)=365. 

200 READ 1 ,N,STAMO,STADA,STAYR,SCHMO,SCHDA,SCHYR 
DO 201 1-1, N 

201 READ, NEP(I),NES(I),NAP(I),NAS(I),D(I),VAR(I) 
C BEGIN MO/DA/YR TO DAYS FO START, SCHEDULE 

YR=STAYR 
DA=STADA 
MO=STAMO 
JSW1=1 

301 YRS=YR-60. 
DAYS=365.*YRS 
IYR=YRS/4. 
ENTYR=IYR 

DAYS=DAYS+1 ,+ENTYR 
IF(MO-1)305, 304,305 

304 DAYS=DAYS+DA 
GO TO 306 

305 DAYS=DAYS+CUM(M0-1 )+DA 

306 GO TO (302,303),JSW1 

302 START=DAYS 
YR=SCHYR 
DA=SCHDA 
MO=SCHMO 
JSW1=2 

GO TO 301 

303 SCHED-DAYS 

C BEGIN BACKWARD. PASS 

DO i*01 1=1, N - 

IF(NAS(I)-N-1)401,402,401 Fortran ttsttimp 

401 CONTINUE FORTRAN LISTING 

402 KN=I PAGE 3 
K=l 

AFT(K)=SCHED-START 
410 K=NAP(K) 
l=K 

1F(K)420,501,420 

420 l=NAS( I ) 

IF( l-N-1)422,421 ,422 

421 AFT(K)=SCHED-START 
GO TO 410 

422 IF(NEP( l)-MES(K))420,430,420 
430 TMIM=AFT(I)-D(I) 

440 IF ( I -N) 444, 441 .444 

444 IF(MEP( l + 1)-f!EP(l))44l ,442,441 

441 AFT(K)=TM I N 

no to 410 



442 l=!+1 

45 TIME=AFT(l)-u(l) 46 

I F ( T 1 1 IE-Til 1 i I ) 443 , 440 ,440 

443 TM I N=T If IE 
GO TO 440 

C d EC IN FORWARD PASS 

501 TIME=0, 
VANCE=0. 

DO 502 1=1, N 

IF(NAP( 0)502,503,502 

502 CONTINUE 

503 K1=l 
K=K1 

510 EST(K)=TIME 
VAR(K)=VANCE+VAR(K) 
IF(K-N)511 ,515,515 

511 1F(NEP(K+1)-NEP(K))515,512,515 

512 K=K+1 

GO TO 510 
515 IF(NAS(K)-(N+1 ))52O,6O0,600 
520 K=NAS(K) 

1=K1 

TIME=0. 

VANCE=0. 

530 IF(NES(I)-NEP(K))540,531,540 

531 IF((D(!)+EST(I))-TIME)540,532,534 

532 IF(VAR( I ) -VANCE) 540, 540, 535 

534 TIME=D( I )+EST( 1 ) 

535 VANCE=VAR(I) 

540 IF( I-NAP(K))541 ,510,541 

541 l=NAS(l) 
GO TO 530 

C BEGIN OUTPUT ROUTINE 

600 I F( SENSE SV/ITCH 1)605,606 

605 DO 601 l=1,N 

PRINT, NEP( 1 ) ,NES( I ) ,EST( I ) ,AFT( I ) ,VAR( I ) 

601 CONTINUE 

606 IF(SENSE SWITCH 2)602,200 

602 DO 650 1=1 ,N 

603 JSV72=1 
DAYS=EST( I )+START 

604 INDEX=0 
IYR=60 

610 IF( INDEX)612,611 ,612 

611 IF(DAYS-366.)621 ,621 ,613 

613 DAYS=DAYS-366. 
GO TO 614 

612 IF (DAYS - 365.)626,626,615 

615 DAYS=DAYS-365. 

IF (INDEX-3)614,616,614 FORTRAN LISTING 

614 INDEX=INDEX+1 PAGE 4 
GO TO 617 

616 INDEX=0 

617 IYR=IYR+1 
GO TO 610 

621 IF(DAYS-60.)626,623,624 

623 MO =2 
IDAY=29 
GO TO 645 

624 DAYS=DAYS-1. 

626 IF(DAYS-31 .)625,625,630 

625 M0=1 
|D^Y=DAY3 
GO TO 645 

630 oO 631 J=2,12 

I F AY s-f. i JM (J)) 640 ,640 „6-> 1 

O ( 3 



li)AY=OAY-,-.:.:j.M( J-1) 

GO TO {bk5,oh,. ) , Jo',7 
3k5 JMO=MC 

I I JAY= 1 j,aY 

I IYR=!YR 
64o JAY5=AFT( I )+START 

J5W2=2 

GO TO 60*+ 

649 PR I NT , NEP ( I ) , ME j ( I ) , I MO , I 1 DAY , I I YR ,M0 , 1 iJAY , I YR 

650 CONTINUE 
PAUSE 

GO TO 200 
END 

END OF COMPILATION 
LOAD SUBROUTINE DECK 
THEN PUSH START 
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Turn Card 
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Input Routine I 
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Diagram 3 
Input Routine 
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TOPTHREAD I 
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TOPTHREAD II 
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VANCE = 
PRES SW TO OFlF 
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Forward Pass 
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1620 PERT 
10.3 

Bernard J. Jeltema 

International Business Machines Corporation 
Detroit Education Center 

Bernard J. Jeltema 

IBM Detroit Education Center 

7700 Second Blvd. 

Detroit 2, Michigan 

TR 5-7900 

1620 PERT solves the basic critical path problem involving 
time. The program features random event numbering and 
allows for more than one event without a predecessor 
event as well as more than one event without a successor 
event. Options foreither one or three time estimates are 
available under program switch control. 

Ranking is accomplished by topoligical threading; the 
remaining computations are similar to other PERT programs . 

Activity times are given in XX. X weeks. Total project time 
cannot exceed 199.8 weeks. The 20K 1620 will handle 
695 activities,' for larger memory, the maximum number of 
activities allowed is 999. Event numbers are 4 digits XXXX. 

4000 + 23N where N is the number of activities. 

The minimum 1620 configuration is a 20K card 1620 with 
Indirect Addressing . Automatic divide hardware is required 
when it is desired to compute the probability of meeting a 
scheduled completion date. 

1620 PERT is written in SPS using fixed point arithmetic . 
The program uses the TOPTHREAD routine for ranking the 
activities. This technique allows random event identification 
and multiple originating and terminating events . Throughout 
input, processing, and output, the activity records (1 
activity per card) remain in the same (collating) sequence. 
Statistical computations and conversion of times to dates 
are Included. Suggestions are included in the write-up for 
modifying the input and / or output routines to handle 
different formats. 



Comments: This program and its documentation were written 

by an IBM employee. It was developed for a 
specific purpose and submitted for general distribution 
to interested parties in the hope that it might prove 
helpful to other members of the data processing community. 
The program and its documentation are essentially in the 
author's original form. Questions concerning the use 
of the program should be directed to the author's attention. 
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I I. Description of 1620 PERT 

A. An Overall Look at the Program 

One of the most popular management tools available today is known 
to civilian groups as Critical Path Scheduling and to persons asso- 
ciated with military projects as PERT. The purpose of this manage- 
ment tool is to help plan, evaluate and control large scale projects 
with many interrelated activities. 

1620 PERT is designed primarily to solve the problem of Critical 
Path Scheduling in a way conforming to most of the basic input/out- 
put specifications of PERT programs currently in use in military pro- 
jects. The most important difference between PERT and Critical Path 
Scheduling (CPS) is that PERT requires three time estimates for each 
activity (job) instead of a single estimate. Therefore statistical 
computations measuring the uncertainty of estimates of future action 
are included in the PERT PROGRAM. The author is assuming the user 
has a familiarity with CPS and PERT. The terminology of PERT will 
be used in this discussion. There are many fine articles available 
to provide the user with a more thorough background to PERT including 
the IBM General Information Manual "PERT. . . a Dynamic Project 
Planning and Control Method", Form No. E20-8067. Under program 
switch control (Switch 1) the user can elect to use only one time 
estimate and forego the statistical computations. Section VI dis- 
cusses the requirements for modifying the input routine and/or the 
output routine for other input/output formats. 

To use 1620 PERT the project must be described by a network (arrow 
diagram, baloon chart). Events (nodes) are the milestones of the 
project and are usually represented by circles. Events may be ran- 
domly numbered. Activities (jobs) are actions which are carried on 
between events and are designated by arrows. Each activity is 
defined by its predecessor event (EP) and successor event (ES) . 
Associated with each activity are three time estimates; optimistic, 
most likely, and pessimistic. Consideration has not been given 
to extend 1620 PERT to include cost, man- scheduling, or other 
computations . 

Input to 1620 PERT requires one card to describe each activity. In 
addition, a header card and an END card are needed. Essential to 
the description of each activity is its predecessor event number 
(four digits), successor event number (four digits), three time 
estimates (xx.x weeks) and an optional 31 character alphabetic 
description of the activity. Optionally a scheduled completion 
date for any activity may be included. Activities may also be 
coded C for "complete" in which case they are not included in. the 
computations, but are incorporated in the output listing. 
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II. Description of 1620 PERT (Cont'd.) 

The output consists of one card for each activity. In addition to 
the duplication of the information which is contained in the input 
card, each activity card includes the expected time required to 
perform each activity (xx.x weeks) , the slack (total float) time 
(xx.x weeks), the cumulative variance (xxx.x weeks) of the time 
estimates of all activities up to the completion of that activity 
along the longest path to that successor event, the probability 
(x.xx) of meeting the scheduled completion date if one is speci- 
fied, the expected completion date (month/day/year - xx/xx/xx), 
and the latest allowable completion date (xx/xx/xx) which will 
still not delay the completion of the entire project. 

1620 PERT consists of five separate programs. The activity cards 
are sorted in ascending collating sequence by successor event 
within predecessor event (eight columns) . The activity cards are 
placed behind the first program (the Input Routine) and the other 
four programs are placed behind the activity cards. The Input 
Routine calls in the activity cards, edits them and stores the pertinent 
information in 23 digit records beginning at location 04000. When 
an END card is reached signifying that all activity cards have been 
read and stored, the next program (TOP THREAD) is read in over the 
Input Routine and ranks the activities. The Backward Pass program 
is read in over TOPTHREAD and determines the latest allowable 
completion dates for each activity. Next the Forward Pass program 
is called in and computes expected completion dates and variances. 
Finally the Output Routine is called in followed by the input activity 
cards which must be retrieved from their place behind the Input 
Routine. As the Output Routine reads each input activity card, the 
input data is merged with the computed data in storage to produce 
the output activity card for that activity. The activities remain in 
collating sequence throughout input, processing and output. 
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Phase I - Input Routine 

The function of the Input Routine is to edit the input data, compute the expect- 
ed time and variance for each activity, and set up a 23 digit record in core 
storage for each activity. 

Five different types of cards are recognized and handled by the Input Routine. 
These are distinguished by a status code in column 18 of each card. The 
codes are: 

H - Header card - must be the first data card of each network . 

Blank - A normal activity card. Columns 18-24 and 56-80 will be blank. 

S - An activity card for which a scheduled completion date is speci- 
fied in columns 19-24. 

C - A completed activity whose date of completion can be specified 
in columns 19-24. 

E - An END card. This card with END punched in columns 18-20 is 
the last card in the network data deck. 

The input routine edits for the following erroneous conditions. 

1. NO HEADER CARD, START AGAIN 

The first (and only the first) data card must contain an "H" in 
column 18. 

2. CARD OUT OF SEQUENCE 

The activity cards must be in ascending collating sequence, 
successor event within predecessor event (sort on columns 1 
through 8 in reverse order, i.e., 8, 7, 6. 5, 4, 3, 2, 1.) The 
number N before the message indicates the card in error is the 
Nth activity card. 

3. DUPLICATE ACTIVITY 

Two cards define the same activity. This condition is not per- 
missible. The number N before the message indicates the Nth 
card is in error. 

4. CHECK ESTIMATES 

This message Indicates that the three time estimates (optimistic, 
most likely, pessimistic) do not progress from smaller to larger. 
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B. Phase I - Input Routine (Cont'd.) 

It is allowable to have all three the same. The first 17 numbers 
in the activity card precede the message for identification put- 
poses. Processing continues using the given time estimates. 

5. EXTRA CARD (5) 

m This message appears after the END card is read if the number of 

activity cards exceeds the number specified in columns 5-8 of 
the header card. 

All cards with status codes C, S, and "blank" will be included 
in the count of the number of data cards . 

6. CARD(S) MISSING 

This message occurs after the END card is read if the number of 
activity cards is less than the number of activities specified in 
the header card. 

7. ERROR, START NEXT NETWORK 

If program switch 4 is ON and if message 2, 3, 5 or 6 is typed 
out, message 7 will also appear. Processing is stopped. De- 
pressing START will read in activity cards for another network. 

8. NETWORK EXCEEDS MEMORY CAPACITY 

This message indicates that the number of activities in the project 
is more than 695 for 20K or more than 999 for 40K or 60K. 

(Additional restart information is contained in Section V C, "Programmed Stops 
and Restarts ") . 

As each activity card Is read and approved by the edit the expected time and 
variance are computed. The formulae, derived from the Beta distribution, are 

Expected time D = a + 4m + b 
6 



Variance = 




where a = optimistic time 
m = most likely time 
b = pessimistic time 

Note: These statistical computations are not made if only one time estimate is used. 
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B. Phase I - Input Routine (Cont'd.) 

After these values are calculated, a 23 digit record is constructed for each 
activity . 

These records appear in the same sequence in memory as the input activity 
cards. 

The first activity record is in memory locations 04000 to 04022, the next in 
04023 to 04045, and so on. With proper care these records as well as the 
rest of the program are relocatable by reassembling the SPS program. (See 
Section VI A) 

The form of each activity record upon completion of the Input Routine is 

Positions Format Symbol Description 

1-4 XXXX EP Predecessor event 

5-8 XXXX ES Successor event 

9-11 XXX Variance, XX. X weeks. 

(000 if only one time estimate 
is used.) 

12-14 XXX Expected time. XX. X Weeks 

15-17 000 AP Initially reserved for the number 

of the activity preceding this one 
in topological order.* 

18-20 000 AS Reserved for the number of the 

activity succeeding this one in 
topological order.* 

21-23 000 M Initially reserved for a count of 

the number of times the activity 
is "moved" during the ranking 
(TOP THREAD) phase of the program. 

NOTE: Activity records are set up in memory only for activities whose status 
is scheduled (S) or not scheduled (blank), not for completed (C) activities. 

* See Section II C for a brief explanation of topological ordering. 



10 



II. 

C. Phase II - TOPTHREAD 

The purpose of this phase is to sequence the activities in the order which 
is necessary for the subsequent PERT computations, specifically for the 
Backward Pass and the Forward Pass to determine the earliest and latest 
completion dates. The method is described by Lasser in "Communications 
of the ACM", April, 1961, and by the author in the paper "TOPTHREAD" 
contained in the published papers of the First IBM Systems Engineering 
Symposium (1961) . 

Briefly, the TOPTHREAD phase arranges the activities in topological order 
which is the order essential to further computation. For this purpose, 
topological order is defined by these two requirements. 

1. All activities beginning at the same event will be listed 
consecutively. 

2 . Each activity will be listed before all the activities which 
follow it either directly or indirectly in the network. 

Instead of actually rearranging the activity records in memory two 
"threaded lists" are used. First the activities are numbered sequen- 
tially by the program from one to N, the number of activities. This 
number is conceptual only and does not appear in the activity record. 
The TOPTHREAD program then places two "tags" in each activity record. 
One tag (AS) is the number of the activity succeeding this one in topolo- 
gical order. The other tag (AP) is the number of the activity preceding 
thi s one in topological order. Thus beginning with an activity in the 
network it is possible to thread through all the remaining activities to 
the last activity by chaining "from activity to activity by using the AS 
tag. Similarly one can thread backwards from any activity to the first 
activity using the AP tag. Both the Backward Pass and the Forward 
Pass make use of the threaded lists. 

This method of ranking allows the events to be numbered at random 
(theoretically the events could be alphanumerically identified) . The 
method also allows more than one event without a predecessor event 
as well as more than one event without a successor event. These 
facts may facilitate 1) partitioning of large networks into smaller 
ones, 2) grouping of sub-networks into larger ones and. 3) the pro- 
cessing of multi-project networks. The technique can actually handle 
several independent networks simultaneously. 

Upon completion of TOPTHREAD the 23 digit activity records contain 
new data in the AP, AS, and M fields. ■ AP (positions 15-17 ) contains 
the number of the preceding activity in topological order. AP of the 
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Phpae II - TOPTHREAD (Cont'd.) 

first activity is *ero. AS (positions 18-20) contains the number of 
the succeeding activity in topological order. AS of the last activity 
is N + l. M (positions 21-23) is a count of the number of times an 
activity is "moved" in setting up the topological order. 

If an activity is moved more than N times (N is the number of activi- 
ties in the network) during the TOPTHREAD phase it is in a "closed 
loop" , that is, the activity is its own direct or indirect successor. 
This may result from 1) improperly punched data, 2) an improperly 
defined network, or 3) more than one event defined by the same 
number. If this situation arises, the message IN CLOSED LOOP 
will be printed preceded by the EP end ESof the activity in the 
closed loop. Processing stops with a complete restart required 
when the situation has been corrected. 



Phase III - The Backward Pass 



The purpose of the Backward Pass is to determine the latest allowable 
finish time (AFT) . It does this by starting with the last activity and 
working its way back along each path until it reaches the first activity. 

Before proceeding with the Backward Pass, the program determines the 
total number of weeks allowed for the entire network by converting the 
start and finish dates supplied on the header card to weeks and taking 
the difference. The message PROJECT EXCEEDS 199.8 WEEKS indicates 
the project is too long and must be reduced to 199.8 weeks or less. 
The latest allowable finish time of the last activity and the AFT's of 
all preceding activities are determined starting with 99.9 weeks as 
the AFT of the last activity and all activities without successor activities. 

Starting with this last activity the program threads its way backward through 
the activities in topological order. As it encounters each activity for the first 
time, it starts at that activity and threads its way forward through the activity 
list topoligically until it finds a group of one or more activities all beginning 
at the successor event of the activity which it has encountered for the first 
time. 0n the Fortran program the index K refers to the activity being en- 
countered the first time in the backward thread. The index I refers to the 
activities which are checked each time the list is scanned with a forward 
thread. Thus we seek the group of consecutive activities whose EPj = ES^.) 
If no such group is found, i.e. , the activity has no successor, the activity 
is assigned the same AFT as the last activity in the project. If such a group 
of activities is found (as is normally the case) the activity 0Q is assigned 
an AFT which is the minimum time TMIN of the differences of each AFT in the 
group and its corresponding expected time D (duration time). 

AFT k = Min OVFTj - Dj) 
all i 

where 1 is defined by 

EP t = ES fc for each activity k 

Upon completion of the Backward Pass the last three digits of each activity 
record (previously occupied by the move count M) now contain the AFT's 
of each activity in weeks (XX. X) relative to 99.9 weeks. 

After completing the Backward Pass the total number of events without 
direct successor events is indicated by the message XXX TERMINAL 
EVENTS. 
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II 

E. Phase IV - The Forward Pass 

The purpose of the Forward Pass is to determine the earliest start 
time EST of each activity. From this the output routine will add the 
expected time D to the EST to establish the earliest finish time; 
i.e., the expected completion date. In addition, the Forward Pass 
determines the sum of the variances of all the activities along the 
longest path through and including each activity. The message 
CUMULATIVE VARIANCE EXCEEDS 999.9 WEEKS will type out if the 
variance along any path exceeds 9 9 9. 9 weeks. 

After finding the first group of activities with the same predecessor 
event in the list in the topological ordering and assigning them an 
EST of -99.9, the Forward Pass threads through the topological list 
in a forward direction (on index K). As each activity group is en- 
countered for the first time, the program again returns to the first 
activity topologlcally and searches through the topological list 
of every activity (using index I) from the first to the group being 
encountered for the first time seeking all activities whose successor 
events ESj are equal to the predecessor event EPj^ of the group. 
The maximum value of the Individual sums of the EST plus the D of 
each activity satisfying this condition is assigned as the EST of each 
activity in the group. 

Thus 

EST k - Max (ESTi + Dj) 
where i is defined to satisfy the relation 

EP k = ES i 
for any activity k. 

Upon completion of the Forward Pass, the record for each activity has 
two new entries. The value of EST in weeks (XX. X) relative to the 
start of the project at time -99.9 weeks is in positions 15-17, replac- 
ing the backward threaded list AS. The value of the cumulative var- 
iance along the longest path to the end of that activity is in positions 
1-4 expressed in weeks XXX. X. The variance replaces the predecessor 
event number EP. 

The total number of events without predecessor events is indicated by 
the message XXX ORIGINATING EVENTS. 



© 
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F. Phase V - The Output Routine 

The purpose of the output routine is to punch or type the output in a 
form which includes for each activity the values of the 

1) Input data 

2) Expected time in weeks (XX. X) 

3) Slack time in weeks (XX. X) 

4) Cumulative variance in weeks (XXX. X) 

5) Expected completion date (Mo/day/yr) i.e., the earliest 
finish time 

6) Latest allowable completion date (mo/day/hr) , i.e. , 
latest finish time. 

7) Probability (X.XX) of meeting the scheduled completion date 
if one is specified. 

In the case of completed activities (status C) only the input information 
is included in the output. 

Program switches 1 and 2 affect the output routine. Switch 1 OFF is 
normal when three time estimates are used. With Switch 1 ON only 
one time estimate is used and hence the probability calculation is 
ignored. With Switch 2 OFF the 80 character output record will bs 
pjr.ched: with Switch 2 ON the output record will be typed. 

The initialization portion of the output routine checks for the header 
card and punches it if Switch 2 is OFF. If a typed report is desired, 
the headings are printed. The base addresses of the fields in the 
activity records are set up for sequential output of the activity 
information. 

Expected completion date for each activity is determined by adding 
the earliest start time EST to the expected duration time D (plus 99.9) 
to compute the earliest finish time EXPTIM. This value, relative to 
a "time now" of zero, is made relative to the project start date and 
then converted to a date by the MODAYR subroutine. 
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Phase V - The Output Routine (Cont'd.) 

The slack time SLACK is derived by subtracting the EXPTIM from the 
latest finish time AFT. The slack time may be negative since the 
AFT is determined from the project finish date. A negative slack 
time implies that that activity is behind schedule if we expect to 
meet the project finish date. Similarly all slacks may be greater 
than zero. This implies the entire project is ahead of schedule. 
All activities which have the minimum value of all the slacks for 
that network are on the critical path. 

The cumulative variance is the sum of all variances along the long- 
est path up to and including that activity. The significance of the 
cumulative variance is, first, a measure of the uncertainty of com- 
pleting the activity on the expected completion date. The larger 
the valve of the variance, the less certain one is of meeting the 
expected completion date. Second, the cumulative variance is 
needed because the completion of the activity is dependent on 
previous activities. 

The probability of meeting the scheduled completion date is calcu- 
lated by PSCHED only when an activity with status S having three 
time estimates is encountered. The formula used is the familiar 
one: 

probability = j£ ( Ts - Te ) - J5 (25 

where 0~ ■ *S Cumulative Variance 

The square root of the variance is taken by kSQRT. pSIG computes 
the standardized variable Z. The routine beginning at label v 12 
determines the probability using a Hastings approximation. 



Miscellaneous Subroutines 

Incorporated into the preceding programs which make up 1620 PERT 
are a number of routines which are either written in subroutine form 
suitable for use with a BT of BTM linkage or are written in a form 
separate from the rest of the program which might be adapted to 
subroutine form. 

Except for the MO/DA/YR TU DAYS sequence which may be found 
immediately following the TOpTHREAD routine, all the subroutines 
are in the Output Routine. 

Specifically, these include: 

1 . MO/DAAR TO DAYS 

Conversion of a calendar date from Month/day /year to the 
number of days from the base date January 1, 1960 to that 
date based on a 7 day week. The entry is at MBEGIN 
p. 20, 1.030. 

2 . DAYS TO MO/DA/YR 

Conversion of a number of days with base date January 1, 
1960 to the corresponding calendar date based on a seven 
day week. Entry instruction is BT MODAYR, DAYSFIELD. 
Routine starts at MODAYR p. 47, 1.020. 

3 . Numeric to alpha conversion 

Changes numeric field to double digit form suitable for 
alphabetic output. Entry instruction is BT NTOA, NFIELD. 
Routine starts on p. 40, 1.010. 

4 . Alpha to numeric conversion 

Changes a numeric field in double digit alphabetic form to 
single digit numeric form suitable for arithmetic use. Entry 
instruction is BT ATON, AFIELD. Routine begins on p. 40, 
1.250. 

5 . Fixed point square root 

Routine begins at FSQRT with argument at XO in the form 
XX.XXXX. Square root is placed in XO in same form. 

6. Fixed point probability calculation using normal curve 
This routine begins on p. 45, 1.070 with the argument in Z 
in the form X.XXXX. Probability at exit (p. 45, 1.374) is 
placed in Z in same form X.XXXX. 
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III Input/Output 

A. Input Formats 

The input Includes a header card (status H), one activity card (status 
C, S, or "blank") for each activity, and an END (status E) card in that 
order. The formats are: 

1. Header Card - Status H 



Cols. 


Description 


1 - 


4 


Network number - 4 digits XXXX 


5 - 


8 


Number of activities - 4 digits XXXX or blank 


9 - 


11 


Case number of network to identify the run. 


18 




H - Status Code 


19 - 


24 


Date of computer run XX/XX/XX 


25 - 


55 


Network Title 


69 - 


74 


Network start date - "Time now" XX/XX/XX 


75 - 


80 


Network finish date - XX/XX/XX 



If the number of activities are specified, it must be the total count of 
all status C, S, and "Blank" cards. Any discrepancy with this count 
is detected by the Input Routine and processing is stopped. If an 
activity count check by the Input Routine is not desired, this field 
may be left blank or filled with zeros. 

2. Activity Cards - status "blank" 



Cols. Description 

1-4 Predecessor event number XXXX 

5-8 Successor event number XXXX 

9-11 Optimistic time estimate XX. X Weeks 
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Input Formats (Cont'd.) 



Cols. Description 

12-14 Most likely time estimate XX. X Weeks 

15-17 Pessimistic time estimate XX.X Weeks 

18 "Blank" 

19-24 Blank 

25 - 55 Activity Description 

56 - 80 Anything - This area ignored by the program. 



3. Scheduled activity cards - Status S 

Tnese are the same as status "blank" activity cards except 
that Column 18 contains an S and the scheduled date for 
completing the activity is punched in columns 19 - 24 in the 
form mo/day /yr XX/XX/XX. 

4. Completed activity cards - Status C 

These are the same as status "blank" activity cards except 
that column 18 contains a C and the date the activity was 
completed is punched in columns 19 - 24 in the form 
mo/day/yr XX/XX/XX. Completed activity cards are included 
only so that they may be readily incorporated in the output 
listing. 

5. END CARD 

This must be the last card of the data and must have an E in 
Column 18. It is recommended that the word END be punched 
in columns 18 - 20 although an E in column 18 is sufficient. 
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Input/Output 

B. Output Formats 

1. Card output - Program Switch 2 OFF. 

The header card Is duplicated and becomes the first output 
card. There la one output activity card punched for each 
input activity card . 

Activities will be in the same order for both input and output, 
namely ascending numeric sequence sorting on columns 1 to 8. 
Columns 1 through 55 of the output activity cards contain the in- 
formation duplicated from columns 1 - 55 of the input activity 
cards. The remaining columns in the output cards include: 

Cols. Description 

56 - 58 Expected time in XX. X weeks. This is the weighted 

average of the three time estimates . 

59 - 61 Slack time In XX. X weeks 

62 - 65 Cumulative variance along the longest path to the 
completion of that activity in XX. X weeks. 

66 - 68 Probability X.XX of meeting the scheduled completion 
date for scheduled activities only (status S) . Blank 
for all others . 

69 - 74 Expected completion date mo/da y/yr XX/XX/XX. 

75 - 80 Latest allowable completion date mo/da/yr XX/XX/XX. 

The END card is not Included In the output . 

2 . Typed Output - Program Switch 2 ON 

The progress of computation is monitored by the typewriter. Header 
card data is printed to indicate the start of computation. Any error 
messages are printed following this and are explained elsewhere in 
this write-up. Following this the operator has the option to punch 
or type the output data (controlled by Switch 2) . With Switch 2 ON 
two lines of heading will be printed followed by the 80 character 
activity records which have the identical form as the card output formats . 

If the slack is negative the units position of the slack field will be 
an alphabetic character since output is typed in the alphabetic 
mode. Upon satisfactory completion of the program, the message 
THE END will type. 
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C . I/O Formats for a Single Time Estimate 

The user has the option to use only one time estimate instead of 
three . Naturally all statistical calculations are bypassed then 
by the program. If Program Switch 1 is ON 1620 PERT uses only 
one time estimate; with Switch 1 OFF, 1620 PERT uses three esti- 
mates. 

1 . Input formats for one time estimate 

The input is the same as for three time estimates except : 

The single time estimate is punched in columns 12-14 
(where the Most Likely estimate is usually punched. 
The other time estimate fields (Columns 9-11 and 
15 - 17 ) are ignored by the program and may contain 
anything . 

2 . Output formats for one time estimate: 

The output is identical to that when three estimates are used 
except: 

a. The single time estimate is punched in cols. 56 - 58 
(which contained the Expected Time otherwise ) . 

b. For scheduled activities (Status S) the probability is 
always left blank since it is not computed . 



IV." Operating Instructions 

A. Console Switch Settings 

Set PARITY and I/O switches to STOP 
Set OFLOW to PROGRAM 





OFF 


ON 


PS1 


Three time estimates used 


Only one time estimate used 


PS 2 


Output on Punched cards 


Output on typewriter 


PS 3 


Not used 


Not used 


PS 4 


Stops on input error 


Edits all input data 




Proceeds if no errors 


Proceeds with computations if no 
errors occur. 



B . Operating Procedure 

1 . Clear Memory 

2. Set console switches. 

3. Ready typewriter for 80 character line. No tabs required. 

4. Ready card punch with blank cards if punched output is desired. 

5. Place program and data cards in read hopper in the following order; 

a . Input Routine program deck 

b. Data deck in this order: 

1) Header card - "H" in column 18 

2) All activity cards sorted in ascending sequence on columns 1 
through 8, succeeding event ES within preceding event EP. 

3) END Card - "E" in column 18 

c. The remaining program decks in this order. 

1) TOPTHREAD 

2) Backward Pass 

3) Forward Pass 

4) Output Routine 

6. Depress RESET on the console; then press the LOAD key on the Card Reader. 

7. Anytime after all the data cards have been read remove them from their 

place behind the Input Routine and put them in the read hopper behind 
the last card in the Output Routine program deck. 

8. Press READER START on the Card Read Punch to process remaining 
data cards. THE END should print on the typewriter to signify com- 
pletion of the processing. 
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Operating Instructions 

C. Programmed Stops and Restarts. 

In general all programmed stops should be referred to the PERT 
analyst for appropriate action as described in Section II. 

With Switch 4 on the input data will be edited. If the data is all 
satisfactory processing will continue with no messages printed out. 
If the input data is not satisfactory, appropriate error messages will 
be printed out and editing will continue until all the data cards have 
been read at which time the message ERROR, START NEXT NETWORK 
will appear calling for the next network. 

With Switch 4 OFF the program halts as soon as the error is detected. 
If the situation can be corrected without affecting any data cards 
prior to the one in which the error was discovered (the second from 
last in the normal read stacker) the remaining data cards beginning 
with the one in error may be placed back in the read hopper after 
making the necessary correction. Follow Restart Procedure 3. 

Four restart procedures are possible. 

1 . Complete restart at beginning after making corrections. 

2. Restart by reloading complete data deck. 

a. Run the remaining cards out of the read hopper, 
with the Non-Process Runout key. 

b. Clear the punch feed of cards. 

c. Place the complete data deck (either the present network 
with corrections or an entirely new network) in the read 
hopper followed as usual by the rest of the 1620 PERT 
program deck (if any program cards remain in the read hopper) . 

d. Press READER START and console START to continue pro- 
cessing. 

3. Restart by loading remaining data deck after corrections are 
made. 

a. Run the remaining cards out of the read hopper. 

b. The second from last card in the normal read stacker is 
the card which caused the error. Starting with this card 
be sure there are no duplicate activities defined and all 
activity cards must be in sequence. 
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C. Programmed Stops and Restarts (Cont'd.) 

c. Place these cards back in the reader hopper then press READER 
START AND console START 

4. No restart, processing continues . 



Some messages are for monitoring the progress of the program or indicate 
possible error conditions. Processing continues automatically after the 
message types out. 

Here Is a list of programmed messages, the phase in which they can occur, the 
appropriate restart procedure to be used (describer above) and the Section 
elsewhere in the write-up where they are more fully described. 



PHASE MESSAGE 



RESTART REFERENCE SECTION 



NO HEADER CARD, START AGAIN 


2 


II 


B 


CARD OUT OF SEQUENCE (SWITCH 4 OFF) 


3 or 1 


II 


B 


CARD OUT OF SEQUENCE (SWITCH 4 ON) 


2 






DUPLICATE ACTIVITY (SWITCH 4 OFF) 


3 or 1 


II 


B 


DUPLICATE ACTIVITY (SWITCH 4 ON) 


2 






CHECK ESTIMATES 


4 


II 


B 


EXTRA CARD(S) 


2 


II 


B 


CARDCS) MISSING 


2 


II 


B 


ERROR, START NEXT NETWORK 


2 


II 


B 


NETWORK EXCEEDS MEMORY CAPACITY 


1 


II 


B 


IN CLOSED LOOP 


1 


II 


C 


XXX TERMINAL EVENTS 


4 


II 


D 


PROTECT EXCEEDS 199. 8 WEEKS 


1 


II 


D 


XXX ORIGINATING EVENTS 


4 


II 


E 


CUMULATIVE VARIANCE EXCEEDS 999.9 WEEKS 


1 


II 


E 


CD SEQ ERR 


2 






THE END 


4 
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IV. Operating Instructions 

D. Off-Line Processing Procedures 

The basic procedure for processing cards is: 

1 . Sort the input activity cards numerically i n ascending order on 
the first 8 card columns. A digit sort beginning in columns 

8, 7, 6, 5, 4, 3, 2, lis required. The header card should 
be placed at the beginning of the deck and the END card at 
the end of the deck after the sort . 

2. Process the input activity cards through the 1620 by the pro- 
cedure described above, in FV.A and IV. B. 

3 . Using a sorter and a printer (a 407 printer control panel wiring 
diagram is described in Section VHI ) a variety of reports can 
be made from the output activity cards by sorting in different 
orders . The most important is usually the listing of the 
activities from the most critical activity to the least critical 
activity. Another useful report lists the output activity 
cards in order of Latest Allowable Completion Date. Still 
other reports may prove useful to the user. In each case 

the header card should be removed before the output deck 
is sorted. After sorting, replace the header card at the 
beginning of the deck. If additional heading information is 
desired, an unlimited number of heading cards may be placed 
in front of the header card. The format for these heading 
cards is 

col. 18 - the letter "H" 

cols. 25 - 55 - the heading information 

all other columns must be blank. 

The sorting procedures for the two reports mentioned are as 
follows: 

a. Activity Listing by Latest Allowable Completion Date. 

1) Select all the Completed Activity cards from the 
deck by sorting out those cards with a "C" in 
column 18. You may wish to eliminate these 
activities from the listing or place them behind 
the sorted deck so they appear at the bottom of 
the listing. 



Off-Line Processing Procedures (Cont'd.) 



2) The Latest Allowable Completion Date is in mo/day/yr 
order in columns 75 - 80. Sort this date in ascending 
numeric order with day as the minor field (cols 77 - 78), 
month as the intermediate field (cols 75 - 76) and year 
as the major field (cols. 79 - 80 ). In other words, a 
digit sort in column sequence 78-77-76-75-80-79 is 
required . 

b. Activity Listing by Most Critical Activity to Least Critical 
Activity will be listed in critical path. 

This Listing is made by sorting from least slack time to 
most slack time. The 3 digit slack field is located in 
card columns 59-61. Remember that in 1620 PERT slack 
may be negative. This is indicated by an x-punch in 
column 61. 

It is recommended that the sort on slack time bo made after 
the sort or Latest Allowable Completion Date. If this is 
done activities will be listed in path sequence on the 
Critlcality Report . 

1) Separate the activity cards with an x-punch in column 
61 from those with no x-punch in 61 . The cards with 
an x-punch have negative slack. 

2) Sort the cards with x-punch in 61 in reverse (descending) 
numeric sequence on the field in cols. 59 - 61. 

3) Sort the remaining cards in normal (ascending) numeric 
sequence, on the field in columns 59-61 and place 
this sorted deck behind the sorted negative slack 
cards. 

4) List the entire deck on the printer after placing the 
desired heading cards at the front of the deck . 



Sample Problem 
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The card deck which you have received from the Program Library includes: 

1 . Deck 1 - Phase 1 - (Condensed SPS Object Program) 

2. Sample Problem Input Date 

3. DECK II - Phases 2, 3, 4, 5 (condensed SPS object programs) 

4. Source Programs - Phases 1-5 

A . A PERT Network - The Complete Project 

Figure V. 1 is an example of a small PERT network patterned after a similar 
network described in "Critical-Path Planning and Scheduling" by J. E. Kelly, 
Jr. , and M R. Walker, Mauchly Associates , Inc. Note that events have 
been numbered randomly without regard for missing numbers. Associated 
with each activity is three time estimates — optimistic, most likely, and 
pessimistic, in that order — which are expressed in weeks. Figure V.2 
is a 1620 PERT data sheet as it might be filled in by the PERT analyst. 
In Figure V.3 is a 407 listing of the input data in proper (ascending) 
sequence. Figure V.4 is the output as it would be typed on the type- 
writer. Figure V.5 shows the same output arranged in order from most 
critical activity to least critical activity (output cards sorted on SLACK 
cols. 59-61). The first three lines of the output listing are created by 
three cards which have the corresponding information punched in columns 
2 5-55 and on H in column 18. These three cards (or any other appropriate 
ones) may be inserted ahead of the output data deck to improve the re- 
port . 

In output is on punched cards other sequences may be chosen by sorting 
on the appropriate columns. Figure V.6 is a listing of the same out- 
put data listed by latest allowable completion time. 

B. The Project Partially Completed 

In figure V.7 we see the PERT network as it may appear shortly after 
the project has begun. Activities 5, 13, and 17 are now complete 
and activity 16 has new time estimates because it is partially complete. 
Figure V.8 is a listing in critlcality order. The cards for the completed 
activities have been included in the listing. 

C . A Partitioned Network 

In some instances it may become necessary to process a network 
which is really a part of a larger network. An example of such a 
partitioned network is illustrated in Figure V.9. It Is a reduced form 
of the network of Figure V.I with Activities 1, 2, 3, 10, 11, 12, 14, 
and 15 omitted. Figure V. 10 shows the output of 1620 PERT using 
the same data cards as in the previous network except for the omission 
of those we have mentioned. 
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Maintenance 

A. Comments on Making Changes to 1620 PERT 

The objective in programming 1620 PERT was to provide the user 
with a program which would handle randomly numbered events and 
would provide a variety of PERT management reports comparable 
to those currently in use in most government projects. For this 
reason 1620 PERT was written for the card 1620 using the TOP- 
THREAD technique for ranking with sole concern for handling the 
time factor only, not cost, manpower scheduling, reliability 
indexes or other resource factors. 

Both new and old uses of the PERT method may demand modifica- 
tions to be made to 1620 PERT. Some changes may be readily 
incorporated; others will require a major program revision. The 
following remarks are given to provide the user who desires to 
modify the program some insight into the scope of effort required 
for certain changes and into the considerations inherent in these 
changes. Note that these remarks are not necessarily complete . 

Most changes will probably occur in input/output requirements. 
These will involve only the Input Routine and the Output Routine 
and are described in this and the other two parts of this section. 

Most other changes, that is, those affecting Phases II, III, and 
IV (TOPTHREAD, the Backward Pass, and the Forward Pass) will 
require a major change in the program. Specifically any change 
involving the lengthening of a field (e.g. event numbers greater 
than 4 digits, time estimates greater than 3 digits, total project 
time greater than 199.9 weeks, or more than 999 activities) will 
cause a major change in these three phases and will not be 
discussed here. 

Each of the five phases is a completely separate program and can 
be assembled separately in SPS. The provisions for making a 
change in one phase without affecting the others are: 

1 . The activity records as they appear at the completion of 
the previous Phase must remain in memory (location 
04000 ff .) since the Phase being changed depends on the 
output format of the previous Phase which is given in 
Section n. 
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A. Comments on Making Changes to 1620 PERT (Cont'd.) 

2. Similarly the succeeding Phase requires the output of 
the Phase being changed (the updated activity records) 
to be in the same format as specified in Section II. 

3. The same remarks that apply to the activity records also 
apply to the data area which occupies locations 03943 
to 03998 in all five Phases. That is, the fields in this 
area are common to all phases and must be included in 
each phase. 

4. Be careful not to use the symbols referring to the activity 
records and data area in the Phase being changed for 
other uses. 

5. No one Phase may exceed position 03999 exclusive of 
activity records. If a modification of any Phase requires 
that Phase to occupy more than 4000 positions, all the 
Phases should be reassembled separately after the 
following changes are made to the SPS source program: 

1) The operand of the last DORG card in each 
Phase should be changed from 4000 to the 
address of the beginning of the first activ- 
ity record after the change. For example, 
if a change in Phase V (the Output Routine) 
requires Phase V to occupy positions 
00000 through 04499, then the card with 
page and line number 99029 in each Phase 
should have the operand changed from 4000 
4500. Similarly, the DORG card 98100 in 
each Phase should have its operand incre- 
mented from 3948 by the same amount . In 
our example, where the program was expand- 
ed by 500 positions, this change would be 
from 3948 to 4448. 

6. After reassembling and condensing, be sure columns 
1 and 2 of the last card in each Phase contain "41" 
not "48". Otherwise a programmed halt will occur 
at the end of each Phase. 

To modify 1620 PERT for 40K and 60 K machines, change the operand 
in card number 91140 in Phase I (the Input Routine) from 20000 to 
26077. Although the capacity of the machine is larger, the nature of the 
program prohibits a larger number from being used. This allows for a 
maximum of 999 activities . (This change can be made to the Phase I 
condensed SPS deck by changing columns 33-37 in card 00022 from 
19988 to 26054 . 



Incorporating Changes into the Input Routine 

Changes should be made in accordance with the requirements listed 
above in Section VI A. Be sure the activity records are set up by the 
Input Routine in the form described in Section II B. 

If a change is made in the format of the input activity cards, remem- 
ber that the Ouput Routine is based on the same format since the 
activity cards are passed through the 1620 a second time to obtain 
descriptive information from them. Actually the event numbers 
(cols. 1-8), the status code (col. 18), the scheduled or completion 
date (cols. 19-24) and the activity description (col, 25-55) are the 
only card fields which the Output Routine requires. Other columns 
may be used as desired without affecting anything but the Input 
Routine. 

Columns 56 through 80 of the input activity cards are not iri%d by 
the Input Routine and may be used for other identification purposes. 

If a major revision in card input format is required carefully consider 
writing a program to convert to the format required by 1620 PERT 
rather than modifying both the Input Routine and Output Routine. 
This would likely be the simplest way of obtaining compatibility 
with the two-card format frequently used by programs written for 
larger computers . 



Incorporating Changes in the Output Routine 



Many of the remarks In Sections VI A and VI B also apply here 
and should be reviewed before modifying the Output Routine. 
1620 PERT emphasises completion dates. Normal output includes 
the Earliest Expected Completion Date (Earliest Finish Time EFT 
when ref ering to Critical Path Scheduling or LESS programs ) and 
the Latest Allowable Completion Date (Latest Finish Time LFT in 
LESS programs). LESS programs also include the Earliest Start 
Time EST and the Latest Start Time LST. Both of these times can 
be calculated in the Output Routine. The EST is immediately 
available in positions 15 - 17 of each activity record. The LST 
can be calculated by subtracting the Expected Time (average of 
the three time estimates) from the Latest Allowable Completion 
time. This calculation may be made by incorporating the proper 
instructions in the SPS source program after the instruction at 
PCALC 4 36. Conversion of both the EST and LST to a date in 
1 620 double digit form suitable for output should be made after 
the instruction at PNOTSC + 60 following the 3-instruction 
method used for the Expected Completion Date (EXPTIM) and the 
Latest Allowable Completion Date (AFTADD) in the first six 
instructions of PNOTSC. The Output Routine works on only one 
activity record at a time. When the completed record for an 
activity is punched it begins processing the next activity. The 
addresses of the fields in question for an activity at any given 
time are located at the following symbolic locations: 



ESTADD 



address of EST 



DADD 



AFTADD 



EXPTIM 
MODAYR 



address of the expected time 
(duration time D) 
address of Latest Allowable 
Completion time (AFT or LFT) 
Expected Completion Time 
entry to the MODAYR subroutine 



to convert to a date 



NTOA 



entry to a Numeric to Alpha 
subroutine. 



PRINT +2 



31 



VIII A 407 Panel for Listing 1620 Input and Output Data. 

The 407 PERT BOARD assumes that all non-activity cards (i.e. Header 
Cards) have an "H" in Card Col. 18. 

If there are no header cards it will be necessary to place a blank card 
with an "H" in cc. 18 ahead of the other cards. 

Alter SW #1 Off: Gives the Pre List 

On: Gives the Post List 

Alter SW #2 Off: Single Space 

On: Double Space 

A Carriage tape must contain a one punch for the first printing line and 
a twelve punch for overflow . 




Figure V. 1 A Small PERT Network - Complete Project 
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FIGURE V. 7 THE PROJECT PARTIALLY COMPLETED 
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LOAD SOURCE DECK 

THEN PUSH STMT 

C tfiSIM INPUT CONVERSION 

DIMENSION NEP(2$).NES(25).NAP(25).NAS(25) t M(25) 
DIMENSION 0(25j.VM(25),EST(25),AFT(25) 
DIMENSION CUMOl) 
IMI. 
2J-59. 



CUM 
CUM 
CUM 
CUM 
CUM 
CUM 
COM 
CUM 
CUM 
CUM 
CUM 
CUM 



3MO. 



•120. 

M: 

J -21 2. 
{-2*3. 
5I-273, 
10j-3Ot. 

200 READ 1 ,N, STAMO, STADA, STAYR, SCH40 , SCHOA, SCHYR 
DO 210 1-1 ,N 

NAP(l)-0 
NASI l)-0 
M(l)-0 

READ 2 | NEP(I).HES(I),A,AB,B 
IF(AD-A)2O$,2O1,201 

201 IF(0-A0)205,202.202 

205 PRINT a NEP(l).NE§( I ) ,A,AB,B 

202 D(l)-!A44.*AS+8)/fe. 
VAR(l)«((t-A)/6.)**2 
|F(SENSE SNITCH 1)209.210 

209 PRINT.NEP(l) v NES(l) t O(l),VAR(I) 

210 CONTINUE 

DEC IN TOP THREAD 

JSM1-1 

LAST-N+1 

20 DO 21 1*1. M 
IF(M(l))2l,25,25 

21 CONTINUE 

22 60 TO 100 
25 NFRST-I 

L-l 

JSW2-1 

30 K-l 
M(K)-«(K)+1 

IF(M(K) -M)32,32,31 % 

31 PRINT.N.K.NEP(K) ( NES(K) 
STOP CLOSED LOOP ERROR 

ft IF(K-nT3%.50,50 
3* IF(NEP(IUl)-NEP(K))35.M).50 
35 PRINT. R.NEP(K),NES(K) 
STOP OUT OF SEQUENCE 

ho 1-1*1 

60 TO (M.30).JSW1 
M IF(NAP(l)}(2 v 43 t 42 
%2 NASI-NAS(I) 

NAPI-NAP(I) 

NAPfNASI)-NAP(l) 

MAS(NAPI)-NAS(l) 
l»3 MAPfl)-K 

MAS(K)-I 

an tn v> 
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43 50 GO TO(52,51 ),JSW2 

51 L-NAS(L) 
GO TO 53 

52 JSW2-2 

53 JSW1-1 

00 55 1-1. N 
IF(M( l))55, 5^.5^ 
5k iF(NEP(l)-NES(L))55,57,55 

55 CONTINUE 

56 GO TO 60 

57 IF(NEP(l)-NEP(K))l»1,58,ifl 
56 JSW1-2 

GO TO 30 

60 NASL-NAS(L) 
IF(K-L}62,61,62 

62 L-NASL 
GO TO 53 

61 NAP(NFRST)-0 
NAS(L)-LAST 
IF(LAST-(N+1))64,63,63 

61* NAP ( LAST )-L 

63 LAST-NFRST 
DO 69 1-1, N 
IF(M( 0)69.65.65 

65 IF(NAS(I))66,69,66 

66 M(l)-- M(l) 
69 CONTINUE 

GO TO 20 

100 DO 101 1-1, N 

101 PUNCH, NEP( I ) ,NES( I ) , NAP ( I ) ,NAS( I ) ,D( I ) ,VAR( I ) 
GO TO 200 

END 

END OF COMPILATION 
LOAD SUBROUTINE DECK 
THEN PUSH START 



FORTRAN LISTING 
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LOAD SOURCE DECK 

THEN PUSH START 

01 MENS I ON NEP(22),NES(22),NAP(22),NAS(22) 
DIMENSION D(22),VAR(22).EST(22),AFT(22) 
DIMENSION CUM(I2) 



CUM 
CUM 
CUM 
CUM 
CUM 
CUM 
CUM 
CUM 
CUM 
CUM 
CUM 
CUM 



-31. 
-59. 
-90. 
-120. 
-151. 
-181. 
-212. 
■243. 
273. 

10) -3O4. 

11) -33t. 

12) -3 



■365. 

200 READ 1,N,STAM0,STADA,STAYR,SCHM0,SCHDA,SCHYR 
DO 201 1-1, N 

201 READ, NEP(I),NES(I),NAP(I),NAS(I),D(I),VAR(I) 
BEGIN MO/DA/YR TO DAYS FO START, SCHEDULE 
YR-STAYR 

DA-STADA 
MO-STAMO 
JSW1-1 

301 YRS-YR-60. 
DAYS«365.*YRS 
IYR-YtS/4. 
ENTYR-IYR 
DAYS-OAYS+1 .+ENTYR 
IF(M0-1)305.304,305 

30% OAYS-OAYS+DA 
60 TO 306 

305 DAYS«OAYS+CUM(M0-1 )+DA 

306 GO TO (302,303),JSW1 

302 STARWAYS 
YR-SCHYR 
OA-SCHDA 
MO-SCHMO 
JSW1-2 

GO TO 301 

303 SCHED-OAYS 

BEGIN BACKWARD PASS 
DO 401 1-1, N 

IF(NAS(I)-N-1)401,402.401 Fortran mrttnc 

401 CONTINUE FORTRAN LISTING 

402 KN-I PAGE 3 
K-l 

AFT(K)-SCHED-START 
MO K-NAP(K) 
l-K 

IF(K)420,501,420 

420 l-NAS(l) 
IF(I-N-1)422,421,422 

421 AFT ( K) »SCHED-START 
GO TO 410 

422 IF(NEP(I)-NES(K))420,430,420 
1*30 TMIN-AFTO)-D(I) 

440 IF ( I -N) 444, 441 ,444 

444 IF(NEP( 1+1 )-NEP( 0)441,442,441 

441 AFT(K)-TMIN 
GO TO MO 



442 1=1+1 
TIME=AFT(I)-D(I) 
IF(TIME-TMIN)443,440,440 

443 TMIN=TIME 
GO TO 440 

BEGIN FORWARD PASS 

501 T1ME=0. 
VANCE=0. 

DO 502 1-1, N 

IF(NAP( 0)502,503,502 

502 CONTINUE 

503 Kl = l 
K=K1 

510 EST(K)=TIME 
VAR(K)=VANCE+VAR(K) 
IF(K-N)511 .515.515 

511 IF(NEP(K+1)-NEP(K))515, 512,515 

512 K=K+1 

GO TO 510 
515 IF(NAS(K)-(N+1))520, 600,600 
520 K=NAS(K) 

l=K1 

TIME=0. 

VANCE=0. 

530 IF(NES(I)-NEP(K))540,531,540 

531 IF( (D( I )+EST( I ) )-TIME)540,532,534 

532 IF{VAR( I )-VANCE) 540 ,540,535 

534 TIME=D(I)+EST(I) 

535 VANCE=VAR(I) 

540 IF(l-NAP(K))54l,510,54l 

541 l=NAS(l) 
GO TO 530 

BEGIN OUTPUT ROUTINE 

600 IF(SENSE SWITCH 1)605, 606 

605 00 601 1=1 .N 

PRINT,NEP( I ) ,NES( I ) ,EST( I ) , AFT( I ) ,VAR( I ) 

601 CONTINUE 

606 I F{ SENSE SWITCH 2)602,200 

602 00 650 1=1 ,N 

603 JSW2=1 
OAYS=EST(l)+START 

604 INDEX=0 
IYR=60 

610 IF(INDEX)612,611,612 

611 IF(DAYS-366.)621,621,613 

613 DAYS-DAYS-366. 
GO TO 61 k 

612 IF (DAYS - 365.) 626, 626,61 5 

615 DAYS=DAYS-365. 

IF (INDEX-3)6l4,6l6,6l4 FORTRAN LISTING 

614 INDEX=INDEX+1 PAGE 4 
GO TO 617 

616 INDEX-0 

617 IYR=IYR+1 
GO TO 610 

621 IF(DAYS-60.)626,623,624 

623 MO =2 
IDAY=29 
GO TO 645 

624 DAYS=DAYS-1. 

626 IF(DAYS-31.)625,625,630 

625 M0=1 

I DAY=DAYS 
GO TO 645 
630 DO 631 J=2,12 

i f ( n ays-cum ( J n 640 - 640 . 63 1 



© 



631 CONTINUE 

6M) MO-J # . 

IDAY-DAYS-CUM(J-I) 

GO TO (W5.649).JSW2 

645 INO-MO 

1 1 DAY" I DAY 
IIYR-IYR 

646 DAYS-AFT(I)+START 
JSW2-2 

649 PRllT,NEP(l).NES(l).mO,nOAY,IIYR t MO,IOAY,IYR 

650 CONTINUE 
PAUSE 

GO TO ZOO 
END 

END OF COMPILATION 
LOAD SUBROUTINE DECK 
THEN PUSH START 
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Start 



Activity 
Cards 



Input 

Activity 

Cards 



Input 
Routine 



Topthread 



Backward 
Pass 



Forward 
Pass 



Output 
Routine 



Activities 
„Caras or 
Typewriter 



End 



Diagram 1 
General Block Diagram 



(begin) 



/Start \ 
( Input ) 
VRoutine J 



JJBEGIN 



Read 

First Card 

— V 



s it an "H" "V 



Message "C 
"No Header 
Dard 
Start Again 



Halt 



Type 
Network 



Wove Header 
Data (INPUT) 
To Type Area 
(Head 




Clear Flag at 
I DONE to 
initialize 
For Error Ck 

At End 



(Convert 
Finish Date 
Start Date 
No. of Activ; 

To Numeric 



Fa rm 



Set Card 
Swftcrf OFF 



Set Activity 
Count N to 



Zero 



Initialize Bast ■ 
Table Address 



Set Card Courjt. 
to Zero 



ties 



f L>esire uan 
V^Count check 



3N No 
<J 1 
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Diagram 2 
Incut Routine I 



© 
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|Tstor^ 



Save Activity 
Event Nos . 



Set Up Input 
Fields 



Yes 



(One Time 
Estimate? PS; 
NO J3 es timate^ 



Is AiiM^B? }- 
NOl I F ISHY 



VIsg AA 
"Check 
Estimate! ; 



Calculate 
D = A 4 4M 41 



Calculate - 



I HWA S 



Set 
a-2 = 



Set AP, AS 
and M to 
Zero 



Increment 
Activity 
Record 
Address 




Store 

Activity 

Record 



Msg D 

"Card 

Missing 



Too Many "V 
Activities ? ) 




I OUT 




OFF 



unt . 
Act 



Msg E 
"Extra 
Card(s) 



IDONE 




OFF 



Msg. F 
"Error , 
Start Agajin' 



IRR 




RN 00000 
B 00000 



Diagram 3 
Input Routine I! 



^TOpthrea 



4- T BE GIN 
Set Ap, A s , 
m to Zero for 
all activities 




T 25 



s this the first activity in\ Yes 
he numeric area ? mj^O ij 



First : 1 
1 = l 
Turn Sw 2 Off 



/is this the last activityA rt~\ 

V ' ) ® 



Yes 



OPTO I .... 
complete/ 



Diagram 4 
TOPTHREAD I 



52 



Yes 



T30 



mk= m]c+ 1 



(Does the move count for\ 
k exceed the number of V 
activities? ISmw^n?y 



No 



T32 



Is this the last activity 
ISkrn? 



ivity^ 





No 




, T34 



— — . , — ■ 

-4 the same predecessor eve 
\ IS Epfcf 1 - E pk - 




/Shoulc 
(is A pi 



> Off 

ould we cut and splice" 



7 



No 



T43 



Api 


= k 


Ask 


= i 



T31 





T4>2 



A P (A si ) = Api 
As (Api) = 



Diagram 5 
TOPTHREAD II 



53 



© so 

X JSW2 
( SW2 > 
j TS] 



\ T53 


1 = 




? 


, T53 




■ 




Turn 




SW 1 




Off 



T52 



Turn 
SW2 

On 




logical or numeric area? ) 
m< o ? 



I Yer 

! 



[sa 



the predecessor event ttjeves 
same as the search argume** 
IS E pi = E s ^ 



No 



jCs this the I 
\ IS i = n ? 



No 



T55 

ast activity ?^ 

y 



s this the last entry in tf 
logical table ? IS E pi = E p L 



T57 





, YeS T58 




Turn 






SW1 






On 


Diagram 6 








TOPTHREAD 1 1 1 




T62 



ak 

Ap Last = 1 

Last = First 




/Is the activity already in 
iy terminal area ? Is m i<0 ? 



Yes 



^ area 7 
N 



s the activity in the logi 
"lsA si *0? 



"TSs" 
T66 



>gifcal_ 



No 



Put the activity 
in the terminal 
area. Set 
mi - - mi 



No /Have all activities been 
— — — { checked? Is i = n? 



<1 



en^ 



j Yes 



No 



BACKWARD PJ^S 



BBE&N 



LAST ACT 
LAST = I 
KN = I 



AFT <K) = 99.9 



K = NAP (K) 
I = K 



B410 



jj, No 



B501 



Forward 
Pass 



I = A8L 



B420 



(la I * N 4 1 AFT (K) = 99. S > 

f ^ 

<^Epi» E SK?T 2 



B421 



4, Yes B 430 



TMIN = 
AFT (0 
-D (0 



B441 



S444 



1 Yes 



No 



1=1+1 
TIME = 
AFT (I) D (I) 



1442 



AFT (K) - 
TMIN 



{is TIME< TMlk ? 
* 1443 



TMIN 4r TIME 



Diagram 8 
Backward Pass 



FORWARD PA^£ 



TIME = -99.9 
VANCE = 



FBEGIN 



Find First 
Activity 



F12 



Kl r I 
K = Kl 
ORIG = 1 



EST (K) = TIME 
VAR (K) = 
VANCE 4. D (K) 



F503 



F510 



es 



No 

— (PRLD SW ON^) 



FS41 



I = NAS (I) 



K = NAS (K) 
I = Kl 



TIME = -99.9 
VANCE = 
PRES SW TO Oik 



Yes 



, /IS U^HT" 

V = NEP (K) ? 



F540 



I = NAP 
— * 



Diagram 9 
Forward Pass 



3* 



'RED S' V TO 



3, 



F530 



> m ^ F531 

^ Yes > F534 



56 




F600 



F532 



TIME = 
D (D 
4 Est (0 



VANCE 
VAR (I) 



F535 



Yes 



From 
Forward 
Pass 



4 P BEG IN 



Read First 
Data Card 




Halt 





57 



PREAD 



Read Activity 
Card Into 
Print Area 



[s It an 



Type 
Both 
* Body 
Heading. 
Jne*"' 



PCONT 



Set Flags 
In Print Area 



Set Up Base 
Addresses of 
Activity Table 
Fields 




Convert 
Card ES 
to Numeric 



Select Next 
ES from Activity 
Table 



/"Compare ES'N 
v for SeauenceV 



Msg G 
' Sards 
Df Order 



Oi t 



PCALC 



Increment 
Activity Table 
^ Field Addresseb 



Calculate 
EXPTIM 
=EST +D+99. 9 



Convert and 
Move Expected 
Time D to Prin 



Calculate SLAQK 
= AFT-99.9+ 
(Sched -Start) 
-EXPTIM 



Convert and 



Move SLACK 
Print C. 




rime^ 
.Switch 




On 



Off 



Convert and 
Move Expected 
Time to Print 




Diagram 10 
Output Routine 1 
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?SCHEI 



Convert 

Scheduled 
Date to 

Numeric 



Convert Sched 
Date to Days 
(Base 1-1-60) 



Calculate Net 
Days from NetvHnrk 
Start Date 



PQQRT 



Calculate Std 
Dev. = 
_lC um . Variance 
Argument & Fui 
Are inXO 



24 



Convert 
e~ (XO) 
To Days 



Convert 
EXPTIM 
To Days 



Subtract 
Sched. Days 
-EXPTIM Days 



Divide By 
Sigma Days 
(XO) 



Store 
To ~ T. 



In Z 



'est rior 
Minus 
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Ma* 

>ositi 


:e 1 
ive 






Set Sign | 
Switch to ! 
Minus I 



P9 



Set Sign ] 
Switch to 
+ 



P12 



Calculate 
Qf * (Z) Using 
Hasting's 
Approximation 
Store in Z 




Ipio 



Probability 
= $ * <Z) 
-.5 



^P20 
Probability 
= V * &) 
+.505 




Convert 
EXPTIM to 
Expected Date 



$tore Expected 
Date for 
Output 




Punch 
Activity Card 





Convert Latest 
Allowable 
to Date 



Weeks 



Store Latest 
Date for Output 



Msg 1 

-The 

End" 



RNCD 00000 
B 00000 



Diagram 11 
Output Routine 11 



MODAYR 

/MODAYl?\ 
Subroutine I 
VlN V 
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,P604 


YR Index - 


YR ■ 


60 



3,P6io 



P611 



(iiKiex « 0?^ ^7^ Da~y8* 366? ) -* ea - 

iWo P612 "** ~~~ 

(peya«g 365T) * 68 - 
JF°P615 



No 



Days= 
Days -36 5 



(index -3? 

Yea I Pfeii 



P621 



P613 



Days= 
Days-366 



Indes = 



"^Days 



60? 



E 



P624 
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Index 
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Yrs = Yrs + 1 



Yes 



Subtract 
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INUKNATIONA: BUMNfSi MACHINES CORPORATION 

IBM 407, 408, 409 ACCOUNTING MACHINES, CONTROL PANEL I A GRAM 
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FIXED 408, 409 CARRIAGE CONTROL PANEi 
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